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MODULE ASSIST A oemel sai tortted 
IDENT = Pentti . 


Steven T. Jeffreys 
CREATION DATE: 

October 9, 1980 
MODIFIED BY: 


v04-001 HHO056 Hai Huang 11-Sep-1984 
Do Limited number of retries on VOLINV error. 


, a 
oo 

S32 
NOUS WI O0O® 


DAN 
NOUS wito— 
Sooo 
MAA NIUTUT 


- 

: 4 4 )= 

; g 6 BEGIN 

: 3 8 } ‘paperanian ita tatatatal cial ean aaa 
; fe e 
; 610 Bio 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
$ 11 1 1 !'* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: if i : i: ALL RIGHTS RESERVED. ; 
; 1% 14 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 15 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
b 1 18 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
4 18 18 1 !'@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i 00 : = TRANSFERRED. * 
3 ; * 
; 1 83 1 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
HY ¢ 0 § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 8 Z ! * CORPORATION. : 
; 5 0025 «(1 ts DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 $ oo § : ~ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: 28 0028 1 Ie . 
s ; 8 4 : LRA AREA AAAARARAAAARAE EAA AEE EAA REEEES 
: 31 031 1 !44 

; ¢ 0033 1! 

3 00 1 ! FACILITY: 

3 4 0034 1! 

° 5 38 seg MOUNT 

3 6 0 : 1! 

3 7 00 1 ! ABSTRACT: 

3 8 aie: 1! 

3 9 0039 1! This module contains the routines to 

: re Bpeo : : implement operator assisted mount. 

: 4¢ : 1 | ENVIRONMENT: 

: tz 4 } VAX/VMS operating system 

; a bes 1 i , —s 

3 48 pee 1 ! AUTHOR: 

3 4 1 

: 1i 

3 1! 

2 1! 

3 1! 

3 1! 

5 1! 

: 1! 

; 1! 

; 1! 


So 
So 
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oe 1 ! g 
; 35 2 1! V03-007 HH0041 Hai Huang pret uhs 1966 : 
: rs : Remove REQUIRE ‘LIBD$:CVMSLIB.OBJJMOUNTMSG.B32'. ’ 
; 6¢ O6¢ | 03-006 CWH3001 Cw Hobbs 30-Jul-1983 : 
we 7! Various and sundry things to make OPCOM distributed : 
; re rt: ! across the cluster. : 
; 88 066 1 vO3-005 TCMO002 Trudy C. Matthews 28-Jul-1983 : 
. SS 067 1! Add DEV_ACQUIRED flag that indicates whether mount interlock : 
; 68 068 1! has been taken out for this device. Remove DEALLOCATE DEVICE ; 
; $9 b6 1} routine, since devices mounted /SHARE, /SYSTEM or /GROOUP are : 
5 0 1! no nonger allocated. Remove temporary change introduced in ; 
3 f} te : TCMOOOT. : 
: o $078 ii v03-004 TCMO001 [oudy C. Matthews 18-Jul-1983 : 
>; «76 0074 1! Make SS$_NOTQUEVED status (received from the SENQ system : 
~ 2 0075 1! service when we cannot take out a cluster-wide allocation ; 
; Bore 1! lock on this device) one of the status codes acted on by : 
: A geek : operator-assisted mount. : 
: 79 0079 1! v03-003 $TJ50311 Steven T. Jeffreys 10-Feb-1983 : 
; 0080 1! - Make all uses of PHYS_NAME indexed by DEVICE_INDEX. : 
a )| itt 1! - Reset PREVIOUS_STATUS after an operator reply arrives. . 
; & 00. ¢ 1! - If the mount failed with an operator request outstanding, : 
; 0085 1! signal MOUNS_OPRQSTCAN instead of MOUNS_RQSTDON. : 
; Be boee : - Define and use routine SDALLOC_DEVS. ; 
; 86 0086 1 | V03-002 STJ0244 Steven T. Jeffreys 04-Apr-1982 3 
; 6 «6S? 0087 1! - Use common 1/0 routines, and make the code more : 
; BB 0088 1! tolerant to random event flag setting and clearing. 3 
Dy oe 0089 1! - Issue the MOUNS_RQSTDON status if the mount completes | . 
2 ot BRa0 : successfully while we have an operator request outstanding. : 
. +s o9¢ | i v03-001 BLS0160 Benn Schreiber ‘18-Mar-1982 ; 
; ez Bo8z : Get OPCDEFTMP from SHRLIBS. : 
: 95 0095 1: v02-011 STJ0229 Steven T. Jeffreys 01-Mar-1982 : 
; & R098 1} - Set the inhibit message bit in the exit status ; 
; 4 sia 4 : code if the message output via SPUTMSG. : 
: 99 0099 1 | v02-010 $TJ0218 Steven T. Jeffreys 16-Feb-1982 : 
; 100 0100 1! - Cancel exit handler before dec oring it. : 
3 19) 19) 1! - Clear system service failure exception mode and ; 
3 136 18 ! } restore it on exit. : 
3 104 104 1! v02-009 $TJ0214 Steven T. Jettreys 11-Feb-1982 : 
; 19? ; 5 ! Add support for the /COMMENT switch. : 
: 199 1 1/ v02-008 $TJ0206 Steven T. Jeffreys 08-Feb-1982 : 
; 108 1 ,! Set mailbox access rights to allow SYSTEM and OWNER : 
; 199 is ! } read and write privileges. : 
; 111 14 1/ v02-007 $Ty0189 Steven T. Jeffreys 02-Feb-1982 : 
; 18 8 : Initalize GLOBAL storage at run time, and fix various bugs. : 
5 114 114 1/3 V02-006 STJ174 Steven T. Jeffreys 19-Jan-1982 ; 
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; 113 13? } H Made most of the GLOBAL routines in to local routines. ; 
3 113 119 1: v02-005 STJ162 Ste Jeffreys 04-Jan-1982 ‘ 
: 118 113 : Removed copy of INTERCEPT SIGNAL. ‘ 
: 120 1 1} v02-004 sTJ015 Steven T. Jeffre ; 
3 } 1 : 1 } Extensive rewrite to support the. SMOUNT system service. ‘ 
. 4% : 1 : 1! v02-003 $TJ0112 Steven T. Jeffre : 
; 126 1244 1! - Use eoeret pdgrens ing mode for Library routines. ‘ 
: 125 las 9 @ - Fixe “SET Heat 3 : 
. % § 1 § 1! - Fixed =REQOEST. to calculate actual message size. ; 
3; % 1 1: - Added Support or alternate cancellation sage: : 
; ; 3 : 3 ! = Handle REPLY/BLANK_TAPE and REPLY/INITIALIZE. TAPE operator replies. ‘ 
. 9 130 1! v02-002 STJ0083 Stev Jeffre ‘ 
: 131 131 1! - than ed SDELMBX call in CANCEL” REQUEST: te SDASSGN to properly ‘ 
. > ; 1 § 1! delete the mailbox and free up the c ‘ 
.. ¥ 01 2% - Changed error recovery handlers to ee nthe “physical device : 
- % 0134 1! name string when referring to the device ; 
s tee gt rE - Added logic to recover from an SS$_ INCVOLLABEL error, which : 
— 7 1 $ 1! occurs when the Label of the volume present in the drive does : 
3 4 gt ‘ } not match the volume label specified by the user. . 
: 120 O40 1 

3; «(141 0141 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 

; 10g 014 1 LIBRARY ‘SYSSLI olf gn 

; (14 0145 1 REQUIRE ‘LIBD$:CVMSLIB.OBJIJIN ITMSG.R 

> 144 927 1 REQUIRE ‘SHRLIBS:OPCDEF IMP’; ! ri °F EMPORARY 

3 133 2218 : REQUIRE ‘SRC$:MOUDEF .B32'; 

$ Hts ep } FORWARD ROUTINE 

3 149 1051 1 SYSSMOUNT, ' Main entry point of $MOUNT 

; 150 1038 1 hha aa SIGNAL. ! Main condition handler 

3: 151 10535 1 SUBMIT_REGUEST : NOVALUE, ! Send request to operator 

; 136 1054 1 SET TARGET MASK : NOVALUE, ! Sets operator target mask 

. 3 1055 1 ST_READ_TO_MBX: NOVALUE, : Post read to reply mailbox 

3 154 1936 1 INTERACTIVE J08, ' Determines if we're a batch job 

; 3 1057 1 T_REPL : NOVALUE, ! Print the operator repl 

s 17$ 1058 1 PARSE REPLY : NOVALUE, ! Parse the oprator's reply 

s 37 1059 1 CANCEL_REQUEST : NOVALUE, : cencet the operator request 

: 138 1999 1 CHECK FOR_REPLY : NOV ‘ ' Check for Tee alto response 

3 4% 1061 1 ALLOCFAIL-HNDLR : NOVALUE, ' Handle coy se gh recat’ on failures 

: 160 1066 1 MEDOFL_HNDLR : NOVALUE, ' Handle SS$ L condition 

3; «6161 1063 1 WRONGVOL_HNDLR : NOVALUE, ' Handle SS$_ TNC CyOLLASEL condition 

: 166 1064 1 INVALID_ COMMAND, ' Notify user/operator of invalid reply 

$ 197 1986 ! EXIT_HANDLER : NOVALUE; ' Exit handler 

§ 192 198 ! FORWARD 

; 167 1069 STATE_TABLE : VECTOR £03, ! TPARSE state table 

3 168 ! A! ! KEY_TABLE : VECTOR [0]; ! TPARSE key table 

: 170 1 2 1 STRUCTURE 

3; 171 1075 1 
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t handler descriptor 


# of arguments ( N <= 1) 
block is a longword array 


eou- —© 


L_BLK+1*4)<0,32,0>; 


MACRO 
! Abort the mount operation. 
ABORT_MOUNT (CODE) = 

SIGNAL_STOP ( 


MACRO 


’ 
: Generate a static string descriptor 
DESCRIP (STRING) = 

BBLOCK (CDSCS$K_S_BL 
INITIAL yaa TRCHA 


MACRO 


t 

} 3 byte operator mask field definition. 

TARGET_FIELD = $BYTEOFFSET(OPCSB_MS_TARGET), 0, 24, 02; 
MACRO : 


i For documentation purposes, define a boolean variable 
that can only take on the values TRUE or FALSE. 


BOOLEAN = LONG2; 
LITERAL 
O_BUFFER SIZE = 512, ! Max Length of FAO result string 
MAX_DEV_LERGTH = 63, ! Max Length of device name 
i Create the reply mailbox protection mask. Allow only 
: ER(read) and SYSTER read .ur ite? access. See documentation 
c 
MAILBOX_PROTECTION = %X'FFOO', 


i The following are boolean values that are used to make the 
: code more readable. They are used as input to CANCEL_REQUEST. 


REQUEST_SATISFIED = 1, ! The request completed w/o opertor intervention 
REQUEST_NOT_SATISFIED = 0, ! The request is being cancled for some reason 


i The following are mask definitions used for retrieving specified 
portions of a message via the SGETMSG system service. 


eee co 
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3 9 1131 «1 MSG_TEXT = 1, ! Include message text ; 
; 11 ¢ 1 MSG_ID = 2, ! Include message gentitier : 
3 1 11 1 MSG_SEVERITY = 4, ! Include severity indicator : 
: § 1% : ! MSG_FACILITY = 8, ! Include message facility name ° 
; ¢ 1 $ 1 The following are indexes into the Exit Handler Control Block : 
: 11 8 1 XHNDLR_ADDRESS = 1, ! exit handler address : 
; 11 1 XHNDLR_ARGCNT = = ¢° » | exit handler argument count : 
: 1379 ; XHNDLR_STSADDR = 3, ! system exit status address : 
: 240 1162 TRUE = 1, ' Boolean value : 
; re. 1307 : FALSE = 0, ! Boolean value ; 
: rk 1145 1 WAIT ef, ! Enable wait for repl ‘ 
3 rf: 11¢8 : NO_WAIT = 0, ! Disable wait for reply : 
: 46 1148 1 REPLY_FLAG = MOUNT_EFN, ! A Local event flag # : 
: 24 1149 1 TIMER_FLAG = TIMER_EFN, ! A local event flag ” ; 
; rt 1339 : TIMER_ID = 999, ! Timer identification # : 
: 250 1136 1 EXPECT_REPLY S hs ! Indicates that we expect a reply : 
$ 23 We7 : NO_REPLY = 0; ! Indecates that we don't desire a reply ; 
: 338 1155 1 GLOBAL LITERAL : 
3; 254 1156 1 VOLINV_LIMIT = 20; ! VOLINV retry Limit ; 
BOE T, : 
: 257 1159 1! Define the static storage used by this module. Note that the ; 
; 258 1160 1 ! virtual pages on which this data resides must be USER writable. : 
3; 259 1161 1! It is sepor tent that this data start on a page boundary, so that ; 
; 260 1186 1 ! the SSETPRT call does not make pages writable that were not meant : 
; 261 1165 1 ! to be. : 
Be HBT! 3 
; 44 1108 ! PSECT GLOBAL = SUSER_DATAS (WRITE, NOEXECUTE, NOSHARE, ALIGN (9)); ‘ 
: 266 1168 1 GLOBAL : 
; 267 119° 1 VA_START : VECTOR CO] ALIGN (9), ! Start of ‘user data’ : 
3 $8 1129 : VOCINV_ COUNT : LONG, ! VOLINV retry counter : 
; 16 1178 ' Declare boolean variables. ; 
: Le 1174 #1 REPLY_PENDING : BOOLEAN VOLATILE, ' Determines if response outstanding : 
3 6a? 1175 «(1 ED : BOOLEAN VOLATILE, ! Used in conjunction with MOUNT_STATUS : 
3 274 1178 1 OPERATOR PRESENT: BOOLEAN VOLATILE, ! Determines operator presence : 
; 275 1177 1 ETRY : LONG VOLATILE, : Number of retries : 
3 g 17g : SS_FATL_MODE : BOOLEAN, ! System service failure mode : 
3 g 1 : Declare condition context variables. : 
; 280 11 é 1 MOUNT STATUS _ : BBLOCKE4 VOLATILE, ! Primary condition ; 
; 1 11 1 PREVIOUS_STATUS : BBLOCKL4] VOLATILE, ' Previous primary condition 

3 § 11 1 PREVIOUS _DEV_IDX: LONG VOLATILE, ! Previous device index # 

: 1185 1 OPERATOR-MASR : LONG VOLATILE, ' Mask of operators to receive requests 

3 Se 1 ' REQUEST _TD : LONG VOLATILE, ' Operator request # 


a i ee 
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: 1188 } } Declare exit handler control block. 

3 1190 EXIT _HNDLR_DSC : EXIT_CTRL_BLK CO], =! Define exit handler descriptor 
; 4 1138 } Declare storge related to the operator reply message. 

; 38 1194 1 REPLY. CHANNEL: Lone. ve ate. Fhennel of reply mailbox 

; 29 1195 1 REPLY_10SB : BBLO Sack OLATILE - tor operator reply read 
> 294 1338 1 REPLY_BUFFER : BBLOCK OPC$S-AS OF Extsa) VOLATILE, 

: 295 1197 1 REPLY_DESC : BBLOCK COSCSK"S BLN ILE 

3 38 1138 1 INITIAL (WORD COPCSS_M $_0 TekT+8) , 

: 29 1199 1 BYTE (DSCSK-DTYPE_T), 

: 298 1200 1 BYTE (DSCSK_CLASS'S), 

; 299 1201 1 LONG (REPLY_BUFFER) 

: 300 1 O 1 b. 

. ee ce 

; 08 \ 32 : ; Define the TPARSE control block. 

: 305 1 09 1 TPARSE_BLOCK =: BBLOCK CTPASK_LENGTHO) 

; 06 1208 1 INITIAL (TPASR_COUNTO, TPASM_ABBREV) , 

: 305 1510 ; 

; 309 1211 1 i Define the device name descriptor that is used as an implicit 

; 19 : ig ' output to a TPARSE action routine. 

: \ 1214 1 DEVICE_DESC : BBLOCK cyseee _$_BLN] ! Descriptor for device name 

3; «31 1215 1 INITIAL (WORD™ (FAX _DEV_LENGTH), 

3 14 1216 1 BYTE (DSCSK_DTYPE_T), 

: 15 1217 1 BYTE (DSCSK_CLASS_S), 

; 1g 1218 1 LONG (0) 

: 38 1520 ; 

: 4 ; ; } Declare storage for operator message and its descriptor. 

: 1 1 : 1 OP_MSG_BUF : BBLOCK COPCSS_MS_OTEXT] ! Buffer for op. request ms 

: ¢ ’ : : INITIAL (BYTE (OPC$_RQ “RQST)), 

: 4 j $ 1 OP_MSG_DESC : BBLOCK COSesk -5.BLNJ ! Descriptor for op. request 

: 5 1 1 INITIAL (WORD “(OPC$S_MS OTEXT), 

; 6 1 3 1 BYTE + DTYPE_T), 

3 7 1 1 BYTE (DSCS$K-CLASS_S), 

H 8 1230 1 LONG (OP_MSG_BUF)~ 

; % ! 1 1 ) ), 

; 1 1 § 1 CANCEL_MSG_BUF : BBLOCK COPCSK_HDR SIZE) ' Cancel message 
3 § 1234 1 INITIAL (BYTE “topes. xX CAICEL) ' Set cancellation code 
3 : i : ey TE (OPCSR_ONSP ! Set SCOPE unspecified 
: 335 1 1 . 

3 1 8 1 CANCEL_MSG_DESC : BBLOCK CDSCSK_S_BLN) ! Cancel message descriptor 

; 1 1 INITIAL (WORD”(OPCSK_HOR SIZE), 

: 3 1240 1 BYTE (DSCSK"DTYPE_T), 

; 1241 1 BYTE (DSC$K CLASS S) 

: 340 1 4¢ 1 LONG (CANCEC_MSG_BuFS 

3 $3 1245 1 ), 

: 2 1244 1 : 


i This is the delta-time value for all timers used. 
} The time is a quadword value, is currently set for 5 seconds. 


DELTA_TIME = UPLIT (-5 * 10000000, -1); 


ASSIST -S$ep-1984 01:04: VAX-11 Bliss-32_ V4.0-742 AS: 
vo2-001 16-ep-1984 9b Re ee YER SUmGMASTERSCMOUNT SkcJASsIsT.B3203"" «1 V 
: ; } $3 ! Declare storage for FAO resultant string buffer and descriptor. 
: 345 1$¢3 | FAO_BUFFER : BBLOCK [FAO BUEFER tafe. 

; § 1248 1 FAO_RESULT_DESC : BBLOCK DSc Sk 

3; 34 1249 1 INITIAL ( R~trpeee MLENGTH), 

; 348 1 1 BYTE (DSC K-DIPE TD 

: 49 1251 1 YTE (DSC LASS_S), 

; : ' ONG (FAO_BOFFER) 

; 1254 1 ‘ 

3 § 1255 1 ' Define the INADR vector used in the S$SETPRT call. 

; ee : $ } } Note that oo is on the next virtual page after VA_END. 

: 356 1 $ 1 VA_END : R £0 1. ! End of ‘user data 

; 57 125 1 VA_RANGE 3 VECTOR 2] INITIAL (VA, START, VA_ END) atten (9); 
ne 

: 360 1 64 1 BIND ) 

3 1 1263 1 

3 4 1264 1 

3 1265 1 

3 1¢66 1 

3 1267 1 
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3 } 6 } GLOBAL ROUTINE SYSSMOUNT (ITEM_LIST) = 

; $9 i ? Functional description: 

: 371 1 i 1 i This routine is the main entry point of the SMOUNT system service, 
s if 1275 1! and executes in the access mode of the caller. yous ly this will 

; ov 1274 1! be USER mode. This routine others defined in this module implement 
: 374 1275 1! the logic for “‘operator assisted mount’’. This code must execute 

: Ne : 6 ! in USER mode, to allow users to CTRL\Y out of a mourt request. 

; r ! fi : | Input 

3 3 : : ’ ITEM_LIST : Address of a S$GETJPI-Like item List 

: + ; ¢ : Output: 

; Bs 4 None. 

; H : HF] ' Implicit Inputs: 

; 87 bs The MOUNT data base. 

: +4 : + ' Implicit Outputs: 

: 391 1 4 1 The MOUNT data base may be altered as 

: 4 1295 1! the result of operator intervention. 

; 1294 1! 

Bo ys 

; 96 3 BEGIN ! Start of OPERATOR_ASSIST 
: 398 1299 2 BUILTIN 

; 399 1 BY FP, 

; 400 1301 AP, 

3 $33 : 8§ CALLG; 

: 40 1304 2 LOCAL 

; t's] : be STATUS; 

; 406 1 09 EXTERNAL 

3 rt +4 \ 4 MOUNT OPTIONS : BITVECTOR VOLATILE; ! Mount options bit vector 
: 409 1310 2 EXTERNAL ROUTINE 

: 410 1311 SDALLOC_DEVSSU =: ADDRESSING_MODE (GENERAL), ! Address of transfer vector 
3; (411 1 ‘§ SCHANGE PROTSU : ADDRESSING_MODE (GENERAL), ! Address of the transfer vector 
; $i¢ : 1? SYSSVMOONTSU : ADDRESSING_MODE (GENERAL); ! Address of the transfer vector 
: 414 1315 ' 

; 6615 1 1 ! Enable a condition handler that will force the primary 

3 218 ' ' : condition code facility-code to the MOUNT facility. 

; 418 i ENABLE INTERCEPT_SIGNAL; 

: 420 1 ' 

2 6421 1 § !' Set the page protection of this module's data to allow user 

3; 4 § 1 ! mode read/write access. This must be done hore. since this 

3; (4 1324 ! image is INSTALLed as a protected shareable image, which has 
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USER read, 


11 

$ep-1984 01:04:04 VAX-11 Bliss-32 V4.0-742 P g 
Sep- 1382 9}: Oe ie DISKSVMSMASTER: CMOUNT. SRCIJASSIST. B32:2°, (2) 
eu EXEC 

T, to avoid changi 


! the effect of oer protection t 


oy that the data sits in a specail PSE 
e page protection on adjacent pages. 


NOT (MOUNT_STATUS = SCHANGE_FROTSU ()) 
RETURN (.MOUNT_STATUS) ; 


Initialize the necessary variables. Most of the 
descriptors are not Stent ticantty changed, ond do 
not have to be initialized at run time. 


REPLY -PENDING > mi, SE; 
MOUNT-FAILED = 

OPERATOR TBRESENT. : TRUE: 
PREVIOUS-STATUS = -1; 
PREVIOUS DEV IDK, = -{; 
RETRY_COONTER = 0; 

$$ TPATL _MODE = 0° 


i] 
Clear the system service failure exception flag, but save it's state. 


STATUS = SSETSFM (ENBFLG=0); 
IF (.STATUS EQL SS$_WASSET) 


N 
SS_FAIL_MODE = 1; 


write. 
ng 


i 
i 
i 
if 
THEN 
' 
i 
i 
i 


BEBE EE EEE RWWA AAA 


Set up the exit handler descriptor and declare the handler. 


EXIT_HNDLR_DSCCXHNDLR ~ADDRES j= = EXIT HANDLER; 
XI TCHNOLR. DSCEXHNDLR_ARGCN 

XIT"-HNDLR~-DSC XHNDLR TSAO BRD = = MOUNT _STATUS; 
CANEXH (DESBLK = EXIT_H 

DCLEXH (DESBEREEXIT THADLRS Nat 


(AAAI NAAI AAAI AI AAI AIA IAI WIAA 
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Perform the mount request. If it fails, attempt to recover 

via some operator assistance. If that {fs not pess0ie, or the 
operator or user aborts the mount, die gracefully and return the 
status to the user. 


MOUNT gi sd yo 
vou TN COUNT 

ee “MOUNT STATUS DO 

con (MOUNT_STATUS = CALLG (.AP, SYSSVMOUNTSU) ) 


IF NOT .MOUNT_OPTIONS COPT_ASSISTI 
THEN 


NAMES WN SO ODNAUNE WN O OONAUES WN OOONOU EWN OOONOU 
cerererec es = 6PMMWMMM.----— 


EGIN 


If the mount operation failed for pene coosep other than VOLINV, 
exit loop with the error status. fh se, do a Limited number of 
retries. This automatic retry is implemented due to a race 


ee LS LL ee ee ee eS Ss 
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<> 


eB) § ' between mount and mount-verification. If — is in progress 

4 § ! and some event (e.g. cluster state transition) er logers mount=- 

ret 4 ' verification, mount-verification will clear the volume-valid 

tee 5 bit in the UCB, caus ng mount to fail with a VOLINV error. 

48 e? i Not that the VOLINV error message will be Sapresees (in module 

ret oS } VMOUNT) unless the Last retry fails with a VOLINV error. 

489 30 if (MOUNT. STATUS AND STSSM_MSG_NO) NEQ (SS$_VOLINV AND STSS$M_MSG_NO) 

491 3 EXITLOOP; 

49 9 VOLINV_COUNT = .VOLINV_COUNT + 1; 

433 % IF .VOCINV_COUNT GEQ VOLINV_LIMIT 

495 9 EXITLOOP; 

rp 39 D 

oz8 ELSE 

nis BEGIN 

502 i SELECT an error recovery handler based on the mount status value. 

rat Use only the message number and the facility code in the comparisons. 

505 SELECTONEU (.MOUNT_STATUS AND STSSM_MSG_NO) OF 
SS$_DEVALLOC AND STS$M_MSG_NO : ALLOCFAIL_HNDLR (); 
SS$_MEDOFL AND STSSM~MSG_NO : MEDOFL_HNDLR (); 
SS$_VOLINV AND STS$M_MSG_NO : MEDOFL-HNDLR (); 
SS$-NODEVAVL § AND STS$M~MSG_NO : ALLOCFAIL_HNDLR (); 
SS$-NOSUCHDEV. AND STS$M"MSG_NOJ : ALLOCFAILHNDLR (); 
SS$ INCVOLLABEL AND STS$M_MSG_NO) : WRONGVOL_ANDLR (); 
LOTHERWISE : EXITLOOP; 


i Check for a reply to the operator request. If it has 
' arrived, it will be processed. If it hasn't, wait for 
! a few seconds and try again. 


Q 
' 
1 
i] 
! 
CHECK_FOR_REPLY (); 
END; , 


Attempt to deallocate devices that are not mounted and 
were not previously allocated. 


APOIPOPIPIPINIPNNUINYIDD 4 2 OO OS SM OOOOOOOOSCO 


pape ny we teed oo 
CNA UNE WN O ODNOAOU EWN CO OONAUE WN ("OO ODNAULS WN —OOW 


If the mount interlock on this device is still in effect, dequeue it now. 


Vser~ndste-2 ble ee 
OQ OBNOVUE WN“ OOONOUSWN—O0ON 


WA WAPONPOPUNIPININONYD 


Cancel the any outstanding requests and the exit handler. 
Also restore the system service fa Lure exception flag to its 
original state, and disable the conditio 


$DALLOC_DEVS$U (0); ! Attempt to deallocate devices 
CANCEL REQUEST (REQUEST_SATISFIED); 
SSETSFA (ENBFLG = ~SS_FAIL_MODE); | 


PV PVPV LV DPULVLUDPVDVLVDVLPEDV LIVIA AIT 


em met etme 


n handler. 
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dD 11 
ASSIST 16-Sep-1984 01:04:04 VAX-11 Bliss-32 V4.0-742 P 1 
Vv 801 17806-1984 PRCT DISKSVMSMASTER:CMOUNT.SRCIJASSIST.B32;2°— 3} 


; 3 1440 SCANEXH’ (DESBLK = EXIT_HNDLR_DSC); 
: 41 44g RETURN (.MOUNT_STATUS) ! Return the status code 
; 328 1444 7 END; ! End of SYSSMOUNT 


.TITLE ASSIST 

“IDENT \V04=001\ 

.PSECT $USER_DATAS,NOEXE,9 
00000 VALSTART:: 
00000 VOLINV.COUNT:: 
00004 REPLY PENDING: 
00008 MOUNT_FAILED:: 

.BLKB 
0000C OPERATOR. PRESENT: 
00010 RETRY_COUNTER:: 

-BLKB 
00014 SS_FAIL_MODE:: 
00018 MOUNT_STATUS:: 
0001C PREVIOUS STATUS: 
00020 PREVIOUS -DEV iDx: 
00024 OPERATOR_MASK:: 
00028 REQUEST_ID:: 
0002C EXIT_HNDLR DSc: 
0003C REPLY ca: 
00040 REPLY_10S8:: ie 
00048 REPLY ouitER 

0088 000D0 REPLY_DESC:: 
WORD 


F 0D “BYT 14 : 
8 -—BYTE 1 ; 
000 900 0 0D4 -ADDRESS REPLY _BUFFER : 
00000002 0000 008 TPARSE BLOCK: : ah , : 
900E0 *BLKB Ss 
OO3F OOF C DEVICE_DESC:: 
WORD ; 3 


e 6 
BY O00rF BE 1 


ak RRR R ROR ROR RF OO 


vO4-001 


00000000" 


FFFFFFFF 


000000006 63 


FO OA 
Fo OA 
04 A 


1$-bep-1964 01:04:04 vAKeI1 Bt is8-52 44 


ete 80104 OP_MSG siti 


Y 
-BLKB i27 
0080 86182 OP_MSG_DESC:: 
<WORD 128 
F 00186 “BYTE 14 
1 “BYTE 1 
00000000" 00188 -ADDRESS OP_MSG_BUF 
E OO18C CANCEL_MSG BUF: : 
04 0018D “BYTE 4 
$18 -BLKB 5 
DIAG -BLKB 
001A O01A8 CANCEL_MSG_DESC:: 
.WORD 26 
E QO1AA “BYTE 14 
1 OO1AB “BYTE 1 
00000000" 001A “ADDRESS CANCEL_MSG_B6UF 
0180 FAO BUFFER: : s12 
0040 00380 FAO_RESULT DESC: 
“WORD 64 
OF O08 -BYT 14 
O88 “BYTE 1 
00000000" 0384 “ADDRESS FAO_BUFFER 
0388 VA_END::.BLKB 0. 


00000000" 00400 VA RANGE: 
ADDRESS VA_START, VA_END 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


FDOSOF80 00000 P.AAA: .LONG +-50000000, - 


nd ey LIMIT== oP 
DELTA_TIME= 


0-742 
COUNT. SRCIASSIST.B32; gee (2) 


~EXTRN MOUNT OPTIONS. SDALLOC_DEVS$U 
eEXTRN SCHANGE PROTSU By Sa CUNT SU 


-EXTRN S$SETSEM, SYSSCA 
-EXTRN SySsseL 


-PSECT SCODES,NOWRT,2 


003¢ 00 .ENTRY SYSSMOUNT, Save R2,R3,R4,R5 
00 E 0000 MOVAB SYS$CANEXH, R 
9E 0 MOVAB SYSSSETSFM, R& 
CF 9E 19 MOVAB OM NT TATUS, R3 
F DE 0001 MOVAL 1 FP) 
F 1A CALLS #0, SCHANGE_PROTSU 
D 1 MOVL RO. MOUNT T_STATUS 
5 4 BLBS RO, 1 
OoF3 31 7 BRW 12$ 
AS D4 A 1$ CLRL REPLY PENDING 
D9 ? MOVL #1, MOUNT FAILED 
1 0 MOVL #1, OPERATOR_PRESE 
1 CE 5 MNEGL #1, PREVIOUS"STATU 


Be Se Sete 


Sete Se Se Se Se Ge Ge Ge Se Ge Ge Se 
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Page 13 
F 11 : ° iss-32 V4.0-742 J (2) 
We gep= 198s TeiKSi1S — DASKSVMEMASTERSCMOUNT -SRCIASSIST.B32¢3 hse 
assist 1, PREVIOUS. DEV_IDX : 134 
V04-001 01 ¢ 9 ClRC’ RETRY COUNTER > 134 
08 A3 F8 Ny bs 3 ELRE a§ FATL_MODE ; 1348 
rf 7E D4 0004 CALLS Al SYSSSETSEM ; 1349 
0 i i 135 
4B MODE ; 138 
FC OA 8 3) 2s ROVAB EXIT HANDLER” eXI1 HNDLR_DSC+4 : 1330 
A CO RRR tls St cae Tarpon sce a 
5 A 83 SE 00058 PUSHAB EXIT_ANDLR_D§ ; 
. 4 OR ee tetas CALLS #1, SYSSCAREXH ; 1360 
65 01 FB 0006 PUSHAB EXIT HNDLR_DS ; 
14 AS 9F 0006 CALLS #1, SYSSDCCEXH ; 1368 
00 01 FB 0006 CLRL © MOUNT_ STATUS : 1369 
ate SE a a ts 
5 ” 4 E8 $74 3$ ne CAP) SY SSVMOUNTSU : 
000000006 69 55 DO ooove BOvE = — RD. QOUNT STATUS ‘4376 
6 081 BLBS * MOUNT OPTIONS+6, 5$ : 1390 
FO 9 8 8 BBs 398, TOs, RO 
EO 00084 =65529, ROUNT_STATUS, 
55 o08G ee erFFOOO7 BF CB 8092 east® Roe aS85 ; 
50 g3 0 D1 000 cnet : 1393 
00000250 = 8F 64 ) 00 ihe VOLINV_COUNT ; 1394 
EB AS 6 a09¢ (MPL YOLINV=COUNT, #20 eth 
14 EB A BLSS + 1406 
88 1 Dons 4$: eres #785529 MOUNT_STATUS, R2 1408 
63 FFFFOOO7 8F CB OO0A6 5S: CMPL soR2, #2142 : 
2 yooo0sco BF eB ys te Beal BS ; 1409 
3 D1 00087 ey fee @ 1410 
oF 53 bt 900¢ neh AE 
00000250 6 12 a9e9 6s CALLS #0, MEDOFL_HNDLR . nari 
0000v CF 2 uN O04 78: EMPL RZ. #2480 Feel 
00000980 8F i ts 0007 BEQL e 92312 
00000908 8F ; iF 30 as: FARES #0, ALLOCFAIL_HNDLR ba 
0000v CF 3 i £9 98 CHPL RD, #264 : 
00000108 = 8F D 12 3 mee WRONGVOL_HNDLR > 1422 
CALLS = #0, REPLY : 1374 
o000v CF Q iB FF 108: CALLS a0. CHECK _FOR_RE : 12 
00v CF ad rE 4 Pe ye 
re P ff 11$: CALLS #1, SDALLOC_DEVSSU ; 1437 
000000006 00 1 DD 00108 CALLS #1, CANCEL REQUEST : 1438 
FB OO10A SUSHIL  SS’FATL 
ey FC as BD ORE CALLS #7 SYSSSETSFM : 1439 
64 d 118 stam bart weLh Ose ; 
14 83. SF ont PUSHAB EXIT_HNDLR_ 


voa-801 


; Routine Size: 


305 bytes, 


7E 
0000v CF 


Routine Base: 


04 


1340 


01 F 11A 
83 D0 80110 128: 
4 00120 
0000 00121 13$: 
7E D4 001 
5E bp 01 
A D 001 
03 FB 00128 
04 00150 


SCODES + 0000 


3Be 93:25:98 


#1, 
MOUNT_STATUS, RO 


CALLS 
M 


V 
D 
SYS 


AX-11 
ISK$V 
SCANE 


Save nothing 
-(SP) 


4(AP), =(SP) 
#3, INTERCEPT_SIGNAL 


8 
MSMA 


XH 


742 
STER: CHOUNT. SRCIJASSIST.B32; 5 


Q 


1442 
1444 
1297 


ASSIST 16-Sep-1984 01:04:04  VAX-11 BLiss-32 v4.0-742 2 5 
yoo 001 eee eee eee ts Meal e tee Madr Secaassist.es203°" «4s 


MOUNT_OPTIONS  : - 


TOR VOLATILE, : teh ed option flags 
USER_STATUS ! 


ITVEC 
ECTOR; tatus return of some routines 
A atata tala tna tata NEQ SS$_UNWIND 

BEGIN 


Make the facility code MOUNS_FCILITY. 


:? $? ROUTINE INTERCEPT_SIGNAL (SIGNAL, MECHANISM) = 
4 23 '44 
rt ‘8 Functional Description: 
50 50 i This routine is a conditon handler whose sole 
2) 51 ! reason for existence is to force the primary 
¢ 26 ! conditon spge's facility-code to that of the 
a e7 } MOUNT facility. 
55 55 Input: 
2 2 i SIGNAL _= Address of the signal array 
rs 38 MECHANISM = Address of the mechanism array 
rs r¢ Output: 
6¢ 6¢ The condition facility code is equal to MOUNS_FACILITY 
64 64 
65 o2 BEGIN ! Start of INTERCEPT_SIGNAL 
4 to 
69 SIGNAL : REF BBLOCK, ! Signal array 
4 MECHANISM : REF BBLOCK; ! Mechanism array 
Lf EXTERNAL 
7 
74 
75 
76 
77 
78 
79 
80 
e 
4 


COOOoNNNNANNN io 
ARRAN AS SSVONP UNIS OOw we 


Pw eel e al Os eal eal Osh al tal al sb a) al ab Ab sb db Ab dh sb db db ah ab th dh ah ah ab ab ah al Mah sh sl ah ah aheal eal Mah alas 


ec ce me ce mm ce me ee ee ee ek ee ed ed ed 2d ed ed = = dd wd dd dd 8 
eT Te ee Se ee Se oe oe oe oe oe ot ot ot ot od ot ot ot ot ot ot ot ot ot oe oe et et ee ae ee ee ee ee ee ee ee ee 


REE RWW WWII NI WII III III ononononononononononononony 2 


Be Se Se Se Se Se Ge Be Be os BH Ge FH Ge SH Se Ge Fe Ge Se Ge Ge Ge Se Se oe Se FHSS SF Ss Se BH SF SF Se SESH Se SESH SH Sse Se SESE SH Se Se Ss Se Se Se Se Seese 


8 IF .BBLLOCK CSIGNAL CHF $L_S1G_NAME], STS$V_FAC_NO}] EQL 0 
+4 +H — SIGNALCCHFSL_SIG_NAMEJ, STSSV_FAC_NOJ EQL INITS_FACILITY 
87 ‘ BBLOCK CSIGNALCCHFSL_SIG_NAME], STSSV_FAC_NOJ = MOUNS_FACILITY; 
89 BS i pBBLock CSIGNALCCHFSL_SIG_NAME], STSS$SV_MSG_NO) EQL 0 
3 83 BBLOCK CSIGNALCCHFSL_SIG_NAME], STSSV_MSG_NO] = .USER_STATUS [0] * (-S$BITPOSITION (STSS$V_MSG_NO)); 
9 9 ! 
3e Be : If the caller requested it, print the message text associated with the message code. 
96 96 if .MOUNT_OPTIONS COPT_MESSAGE) 
9 9 THEN 
98 38 BEGIN 
99 SIGNAL CCHFS$L_SIG_ARGS] =_.SIGNAL CCHFSL_SIG_ARGS] = 2; 
600 00 SPUTMSG (MSGVEC ="SIGNAL CCHFSL ie ARGSJ, ACTRIN=0, FACNAM=0); 
601 01 SIGNAL CCHFSL_SIG_ARGS) = .SIGNAL CCHFSL_S$IG_ARGS) + 2; 


<> 


COSSSSS o 


2 
FUN —OOONOUNLS Ww 00M 


Sete Ge Ge Ge Ge Ge Oe Ge Ge SF S8 Ss Ge SSeS Ge SH Se Se eees 


PAPA AAAAA AAO 


rmrororr 


8F 
43 


63 


04 
02 


ot De a a ot te 4 8 Hs tb 8 8 8 tt tt 


PUPVUPUPUSU SUSU SII 
MRO 3 OOOO OOO 


FUN “COONS WN" OOONOUL wT 


stack back to the caller of th 
Return the condition code in R 


HAO ee ee wee 
z2 


R_bBLOock 


ENBEGIN 
MECHANISM CCHFSL_MCH_SAVRO) = 
SUNWIND (); 


i Attempt to continue the operation. 
RETURN (SS$_CONTINUE); 


lI 
| 


ir -BBLOCK peiowt CHFSL_SIG_NAME), 
SIGNAL CCHFSLZSIG"NAME), 


yb-Bep-1964 01:04:04 vaNeT BL iee-32 v4.0-74 
_ CSIGNAL CCHFSL_SIG_NAME], STS$V_INHIB_MSG) = 1; 


If the condition severity code is SEVERE or ERROR, then unwind t 
frame that established this eller 


STS$V_SEV 4 ITY] E 
STS$V_SEV 


$v 
$v- 


-SIGNAL CCHFSL_SIG_NAME]; 


! End of INTERCEPT_SIGNAL 


-EXTRN USER STATUS, SYSSPUTMSG 
SEXTRN SYSSONWIN 


Q000C 00000 INTERCEPT SIGNAL: 


04 AC 000 
5 0 hs 9E 0 
00000920 = 8F ¢ oI 0 
OFFF BF 02 a3 e3 
oc 1 
A3 oc 00 ‘ 
ga 
oc 90 00000072 F F 
FFF8 F 83 ° 
30 00006 fr FD F 4 
1? 0000G CF 3 E 
= e ft 
43 D4 
DD 
000000006 09 : 9 
03 A 5 
63 0 fe 
63 03 ? i3 
50 08 AC D 


COOOOQOOOCOCCCOOOoOoCooeoo 


SOOSSCOCSCSOSOSOOOSOOOSOOOOOOSOoOoOSooo 


OOoOoooooeoo 


.QORD Save R2,R3 
02 hove. SIGNAL, R2 
06 MOVAB 4(R2), RS 
OA CMPL (R3), #2336 
11 BEQL $$ 
13 BITW (R3), #4095 
19 EOL ~=Sés«édS 
1 CMPZ7V #0, #12, 2(R3), #117 
NEQ 2$ 
1$: INSV #114, #0, #12, 2(R3) 
1 2$: BITw  (R3). #65528 - 
BNEQ 3$ 
ASHL = #3, SER, STATUS, RO 
F INSV RO, @ 
44 3$: BBC “3. MOUNT. Ta (Rah 4$ 
4A SUBL2 #2, (R2) 
4D CLRQ. 0s = (§P) 
4F CLRL = (SP) 
| PUSHL R 
CALL ‘ . a 
A ADDL ( 
D BISB ‘ é, 3(R3) 
1 4$: cHPZV , #3, (R3), # 
CMP7vV. #0, #3, (R3), #2 
D BNEQ 
F 5$: MOVL § MECHANISM, RO 


JASSIST.B32;3°" dS 


ass!85, yb-bepnt964 01:06:04 yayedt at taee32 v4.0 


7 
p-1 DISKSVMSMASTER: CMOU NT. PSACIASSIST. B32; 7 3} 


0c Ad 3 po MOV (R3), 12(R0) 

C CLR - = 35 ; 1515 
000000006 99 " re CALLS » SYSSUNWIND 

pO 080 68: OVL » RO + 1522 


+ 1524 
; Routine Size: 132 bytes, Routine Base: S$CODE$ + 0131 


K 11 
16-Sep-1984 01:04:04 VAX=11 Bliss-32_V4.0-742 P 18 
19-30-1382 930898 DISKSVMSMASTER: CMOUNT .SRCJASSIST.632;2° (4) 


THEN 
ABORT_MOUNT (MOUNS_MBXRDERR, 0, .STATUS); 


END; ! End of POST_READ_TO_MBX 


: $ } 5 } ROUTINE POST_READ_TO_MBX (MBX_CHANNEL) : NOVALUE = ; 
: 638 1 ° 1 !44 : 
: ? 4 : 8 ! Functional description: : 
; 631 1530 1: This routine witt post a read to the reply mailbox. ; 
: 6 ¢ 1531 1! Instead of waiting for the 1/0 to complete, request : 
; 6 i é i ; that an event flag be set when the 1/0 is finally done. : 
: : 5 4 i Input: : 
: 6 1 $ 1! None. ; 
; 6 1 1! 

: o75 13 3 : Implicit Input: 

3 yh 1300 : REPLY_ CHANNEL : Channel # of channel to the reply mailbox. 

; ro 134¢ 1 ' Output: 

: 644 1545 1! 

: Ste 184 1 i — 

: eet 1346 : Implict output: 

3 649 1548 1! REPLY_I0SB : Address of an 1/0 status block to receive the status of the 1/0. 

; 630 1363 } } REPLY _BUFFER : Address of buffer to receive the operator's reply. 

; 638 1331 Side effects: 

: 654 1388 1 i If the $Q10 fails, the user will be notified 

; $33 1338 ! of the failure and the mount will be aborted. 

; 657 1356 1 ' Routine value: 

; 658 1557 1! 

; 659 1558 1! None. 

: Set 1380 1° 

: 66¢ 1361 BEGIN ! Start of POST_READ_TO_MBX 

: 664 1368 LOCAL 

; 665 1208 STATUS : LONG; ' Hold status of $010 call 

; res] P 1386 IF NOT (STATUS = $Q]0 (FUNC = I10$_READVBLK, 

: 668 P 156 EFN = REPCY_FLAG, 

; 668 P 1 $8 CHAN = .REPLY_CHANNEL, 

; 670 P 156 10SB = REPLY_TOS 

: 671 Pp Pl = REPLY BUFFER, 

; 7 P ie = ($BYTEOFFSET (OPCS$S_MS_OTEXT) + SBYTEOFFSET (OPCSL_MS_TEXT)) 

: 67% 1 

3; 675 1 

: 67 1 

; 67 1 


-EXTRN SYSS$QI0 


vO2=801 


; Routine Size: 


1B-2e0-1986 01:04:04 VAX]! Btisee32 v4-dc74z | egge | 
0000 00000 POST_READ_TO_MBX: 


QORB Save nothing 3 

E ¢ etRa =(SP) : 

E CLRO sip) : 

7E 88 F OA MOVZBL #136, -(SP) : 

0000" cr F A PUSHAB REBLY BUFFER : 

— 7¢ ; CLRQ. = = (SP) : 

0000 Se RR FuRNE fest tos : 

0000' cr DD 16 PUSHL ne CHANNEL ; 

000000006 00 9¢ FB ¢ CALLS § SYS$Q10 : 
11 ig LBS Status. 1$ : 

30 DD 000 é PUSHL STATUS : 

E 04 000 LRL. = SP) : 

007281DC 8F DD OO02A PUSHL #7504348 : 

000000006 00 03 FB 000 0 CALLS #3, LIBSSTOP : 
04 00037 1$: RET : 


56 bytes, Routine Base: $CODES + 0185 


1574 


1576 


SSIZS 
fo teal *al* al * alah al al al Al Al Al AL AL AL AL AL AL AL AL AL AL AD AD AD AL Ah Al A] 
SEL poe eee ae 
MEWINI—O Ow VF WO CONAN O0O~ 


dd od od 
OuneWn—O 


Pun —-O0ew 


SN NNN NN 


APOPOPONIPINIPOPOPUND 


—ODOONOU SW —OO0On 
ee a ee ee ee ae ee a ee a a a a a a a a ed 
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1e-35p-1986 42:45:13 DISKSYMSMASTER: CHOUNT-SRCIASSIST.B32¢9°" (8) 
ROUTINE INTERACTIVE_JOB = 


lee 
Functional Description: 


This routine will determine if the current process is an 
interactive process, and return that information to the 
caller. By def nition, a process is interactive if it 
has a terminal associated with it. 


i Input: 


1 

! 

! 

! 

1 

! 

: None. 
Output: 
None. 
Routine Value: 
i 

{ 

' 


1 if current process is an interactive process 
0 if current process is not an interactive process 


BEGIN ! Start of INTERACTIVE_JOB 
LOCAL 
ITEM LIST : BBLOCK £162. : Item List for SGETJPI 
DEVICE NAME : BBLOCK [16], ! Device name buffer 
NAME _LENGTH : LONG; ! Cell for device name Length 
1 
: Build the SGETJPI item List and get the terminal name. 
NAME_LENGTH = 0; ' Zero the output cell 
ITEM_LIST CO, 0. 16, 0) = 16; ' Set buffer Length 
ITEM~LIST C2, 0. 16. 02 = JPIS_TERMINAL; i Set item code 
ITEM_LIST (4, 0, . = DEVICE_NAME; ' Set buffer address 
ITEM_LIST (8, 0, 32, = NAME_LENGTH; ' Set result length address 
ITEM-LIST (12,0. = 0; ! Set List terminator 
$GETIP] (1TMLST = ITEM_LIST); 
] 


! If a terminal is associated with the process, the terminal name 
! Length should be nonzero. 


' 
if .NAME_LENGTH NEQ 0 
THEN 
! Return TRUE 
0 ' Return FALSE’ 


END; ! End of INTERACTIVE JOB 


ELSE 


PR OPOPOPOPOPORINOROPOPOPONIPOPONPUPONOPUPONOPONPINININUDY 9 8 2 ts 
. . . . 


-EXTRN SYSSGETJPI 


04-001 


; Routine Size: 


3; 732 


56 bytes, 


1630 1 


5E 


~~ 
oOce 


AE 


000000006 00 


50 


Routine Base: 


AE 03100010 
AE 04 


Sep- 4: VAX-11 Bliss-32 V4.0-7 
12: ~tee- 198 73: % 03 DISKSVMSMASTE 
0000 00000 INTERACTIVE JOB: 
20 ‘ .WOR $ ye nothing 
E D CLRL.  NAME_LENGTH 
iy mene 
AE 9E F MOVAB VICE_NAME, ITEM_LIST+4 
6— 9 14 MOVAB NAME_LENGTH, ITEM-LIST+8 
20 AE p 18 CLRL —«sITEM“LIST#+12 
7E 7C¢ 18 CLRO 40s = (SPY 
7E D4 0001D CLRL = = (SP) 
20 AE OF O1F PUSHAB ITEM_LIST 
7E 7¢ 2 CLRQ = = (SPY 
43 D4 00024 CLRL = = (SP) 
07 FB 00026 CALLS #7, SYSSGETUPI 
6E D5 00020 TSTL | NAME_LENGTH 
04 13 O002F BEQL 1s 
1 v0 00 1 MOVL #1, RO 
4 00034 RET 
50 D4 00035 1$: CLRL ~— RO 
4 00037 RET 


SCODES + O1ED 


42 
ERSCMOUNT SRCJASSIST.B3203°" (8) 


1623 


Se Se Be Be Se Ge Be Se Be Be Ge Ge Se Se Be Se Ge Se Be 


1629 


v0 


12 
18-60-1984 Fhe ee YL UMGMASTERSCHGUMT SACIASSIST.B3203%° (35 


<> 


H i 4 16 1 ! ROUTINE SUBMIT _REQUEST (MSG_DESC,REPLY_EXPECTED) : NOVALUE = : 
; 136 1638 1 t+4 : 
; 4 ‘ 1 : | : Functional Description: : 
: 739 1636 | This routine will send @ request to all operators enabled : 
; £40 16 1} to receive disk and tape messages. All requests that are ‘ 
> 741 1638 1! issued to the operator are echoed to the user. Also, the ‘ 
g re 1639 1! request context is saved So that when the operator replies ‘ 
$ Sk 19°9 ! we can parse the reply in the context of the request. ; 
oR cis a) eee : 
: 747 1644 1! MSG_DESC = Address of a quadword string descriptor. : 
; oe 196? } The string is the operator request. ; 
> 750 1ecr ji REPLY_EXPECTED = Boolean value. If true then an operator : 
3 fe 1933 : response is expected. : 
: Fes 1650 1 / Output: 
; 754 1651 1! : 
ie aaa eo | 
: rer 1998 : ! Implicit Inputs: 
; O28 1998 ! ; MOUNT_STATUS = status from current mount attempt ; 
: 761 1658 | Implicit Outputs: ; 
: 768 1660 1: The request context is saved, the request is made. : 
: fe tee) | '- 
: 766 1668 2 BEGIN ! Start of SUBMIT_REQUEST : 
: 767 1664 : 
ia. win : 
: ory 1667 MSG_DESC : REF BBLOCK; ! Address of request descriptor : 
; oe 1669 ¢ EXTERNAL 
i 074 1671 DEVICE_INDEX  : LONG VOLATILE; ! Index into device List : 
; £76 1678 LITERAL : 
; 778 1675 BLANK = ASCII ' ', ! Fill character 3 
: 444 1978 ZERO = 0; ! Handy Literal ’ 
: 7a 1678 LOCAL : 
: ee 1989 STATUS : LONG, ! Return status : 
: 784 1681 MBX_ CHAN : LONG; ! Operator reply mailbox channel : 
; 785 1o86 : 
a 1684 5 ; 
; g 5 1 5 If no mailbox exists, create one. : 
ss , 1687 5 ir .REPLY_CHANNEL EQL ZERO ; 
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791 EN 
IF NOT (STATUS = SCREMBX (CHAN = REPLY_CHANNEL, PROMSK = MAILBOX_PROTECTION)) 
034 ABORT_MOUNT (MOUNS_MBXCRERR, 0, .STATUS); 
79 ' 
79 ' Fill in the apes A fields in the request string. 
ie: } Copy the message string to the operator message buffer. 
800 REQUEST_ID = .REQUEST_ID + 1; ' Inc reqeust # 
801 OP _MSG_BUF COPCSL_MS_ROSTIDJ= »REQUEST_ID; i Set request # 
80 CHSCOPY (.MSG_DESCCDSC$W_LENGTH) ' Source Length 
804 -MSG_DESCLDSCSA-POINTERS, i Source pointer 
05 LANK, ' FILL character 
806 OPCS$S_MS_OTEXT-S$BYTEOFFSET(OPCSL_MS_TEXT),! Destination Length 
807 OP_MSG_BOF+SBYTEOFFSET(OPCSL_MS TEXT) ! Bbestination pointer 
809 OP_MSG_DESCCDSC$W_LENGTH] = .MSG_DESCCDSC$W_LENGTH]+S$BYTEOFFSET(OPCSL_MS_TEXT); 


IF_ .REPLY_EXPECTED 
THEN 
BEGIN 


i An operator reply is expected. Save the condition 
context and set up the reply mailbox channel. 


PREVIOUS_STATUS -MOUNT_STATUS; 
PREVIOUS DEV_IDX = .DEVICE_INDEX; 


REPLY PENDING ; 
MBX_CRAN .REPLY_CHANNEL; 


ELSE | 


i An operator reply is not expected. 
Indicate this to OPCOM by specifying a mailbox channel of zero. 


MBX_CHAN = ZERO; 


MOPoTony 


4 
Set the operator target mask. 


SET_TARGET_MASK ( 


OOONAVUES WN @OOONA UNE WN OO ODNAU EWN HOC OONAULS WN —OO0 


WWI AAAI PUI PIPIPIPIPUNINIDS 2 OO OO OS 


DISARM OOO NOUL UN "OODNAME WMO 
>> PAAR DP PD PP PPP PPP 


C9 G9 O89 Cd Cd CD Cd CD 09 CD CS Cd CD CD CD CD OD 09 OD OD OD CD Cd 0D 09 09 CD 0D CD. 
ee ee ee a ee a a ee ee ee ee ee ee a a dd dd 


SSNS SSN SSNS NINE TINIA AAA AP AAA AAOO 


Be Se Se Se Se Be Se Be Se Se Se Se Ge Se Se Ge Ge Se Ge Se Ge Ge Be Se Ge Se Ge Se Ge Se Ge Ge SF Se Se G1 Se Se FF Se Se Se Se Se SH Se Se Se Se Ge Se Ses Sees teas 


): 
1 OP_ASG_BUFCTARGET FIELD] = .OPERATOR_MASK; 

5 Send the request to the operator. 
3 5 if ed (STATUS = SSNDOPR (MSGBUF=OP_MSG_DESC, CHAN=.MBX_CHAN) ) 
4 $ ABORT_MOUNT (MOUNS_OPRSNDERR, 0, .STATUS); 
§ 3 i Echo the operator request to the user. if no operator is 

40 ! present, do not echo the request. This interlock is necessary 
44 41 ! to prevent repeatedly issuing the request if no OPCOM process 
rb ¢g H is present. 
43 44 2 IF .OPERATOR_PRESENT 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
Sb b> > b> > bn ee PP > PP 
5090909 09 09 09 09 09 09 09 SI NINN SII NNSA A AAA AA AAA MMIII £* 

C8 NIA NE AP © OOO NA UE WIN OS OD NAME WN S(O ODONOUE WH OOONOu 


PROPPOPOPUNNNUTUWE BAA EUS SEARLE AERA EEE PWWWWIIIInononononoronononory 


Boe Se Se Ge Ge Se Ge Se Se Se Se Ge Be Se Ge Ge Fe Se Fe Se Se Ge Ge Fe Se Ge Se Se Ge Fe Ge Se Se Fe Se Fe Se Se Se Se See Se See Ge Ge Se Se Seas 
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EN 

SIGNAL (MOUNS_OPRQST, 1, .MSG_DESC); 

An alternate request eretus returned 7 SSNDOPR is SS$_NOPERATOR, 

which indicates that there is no operator present to service the 

request. Taken in this context, it means that there is no OPCOM 

process present on the system. 

STATUS EQL OPCS$_NOPERATOR 


SS ee | 
= 


i 
HEN 
BEGIN 
REPLY PENDING = FALSE 

IF then” INTERACTIVE “308 () 


i Abort the mount, as no one can service the request. 


ev ge ABORT =MOUNT (MOUNS_BATCHNOOPR) 
BEGIN 


Inform the user that no operator is available to service 

the request. The user cpap has three courses of action: 
= Abort the mount via CTRL-C 
- Wait for an operator to enable himself to service the request 
- Service the request himself. (Hands-on environment) 


informing the user before continuing the MOUNT operation. 
cOPERATOR.. PRESENT 
SIGNAL (MOUNS_ =NOOPR) ; 
gee PRESENT = FALSE; 
IF “¥ T (STATUS = SSETIMR (EFN=TIMER_FLAG, REQIDT=TIMER_ID, DAYTIM=DELTA_TIME)) 
sy F STATUS? 
ITER tERN's IMER_FLAGS; 
rt) (REGIDT. = TIMER ‘TDS : 
F (CEFN = TIMER_FLAG); 


i 
i 
i 
! 
i 
Since the problem may go away in time, wait a short while after 
i 
iF 


END; 
1 
If an operator reply is expected, then issue a read to the reply mailbox. 


REPLY_I0SB = 
IF REPLY BENDING 


N 
POST_READ_TO_MBX (); 
END; ! End of SUBMIT_REQUEST 


12 
ASSIST 18-Sep-1 VAX=11_BLiss-32_V4.0-742 
voe~001 Ve=$ep-1986 12:48:15 DASKSVMSMASTERSCMOUNT. SRCJASSIST.B32z9°" 
LEXTRN SYSSSETEF 
O7FC 00000 SUBMIT REQUEST: 


ow 


A 
Vv 


0 Save R2, R3. R4,R5,R6,R7,RB,RI,R10 : 1631 : 

A 99000 906 00 E : MOVAB LIBSSIGNA rid ° : ; 

9 000 0 G E MOVAB LIBSSTOP : ; 

8 00° CF MOVAB REPLY TOP 8 R8 : ; 

3 D 1 TSTL REPLY CHANNEL + 1687 ; 

} 1 BNEG so : ; 

E 7C 00019 CLRQ = (SP) + 1689 : 

7E FFOO i 3¢ 1 MOVZWL #65280, -(SP) : ; 

; ¢ CLRO = =(SP) : ; 

5 DD PUSHL R8 : : 

; D4 4 CLRL. =( SP) : ; 

000000006 90 FB 00026 CALLS #7, SYSS$CREMBX : : 
7 Q DO 00020 OVL RO, STATUS ; : 

0 E8 000 LBS STATUS, 18 : : 

7 DD 000 PUSHL STATUS + 1691 : 

E D4 000 CLRL «Sh : ; 

007281D4 8F DD 00037 PUSHL #7504340 ; : 

9 03 FB 0003D CALLS #3, LIB$STOP : : 

EC AB DG 00040 18: NCL - REQUEST_I ; 1697 : 

oocc 8 EC AB DO 0004 MOVL § REQUEST-ID, OP_MSG_BUF +4 + 1698 F 

56 04 AC 00 00049 MOVL. MSG_DEST + 1700 ; 

0078 «8 20 04 86 lad es 2c 9004p MOVCS  (R6Y, a4(R6), #32, #120, OP_MSG_BUF+8 + 1704 : 
0148 8 66 08 al 00058 ADDW3 (R6), OP MSG DESC + 1706 ; 
14 08 AC €9 0005E BLBC RELY _EXPECT : 1708 ; 

EO A8 DC 6—AB «ODO 9006¢ MOVL T"STATUS,  REVIOUS. STATUS + 1715 3 

E46 AB 00006 CF DO 0006 MOVL DEVICE INDEX. PREVIOUS DEV_IDX : 1716 : 

(8 «AB 01 dO 9006p MOVL REPLY PENDING + 1717 : 

52 68 DO 00071 MOVL REPLYS CHARNEL MBX_CHAN : 1718 : 

g 11 00074 BRB 3 : 1708 ; 

D4 00076 a8: CLRL MBX + 1725 3 

0000v CF 0 FB 0078 3$: CALLS #0 “eer N TARGET _MASK : 1730 3 
00c9 C8 18 00 E8 A8 FO 00070 INSV OPERATOR_MASK, #0, #24, OP_MSG_BUF +1 + 1731 : 
38 DD 00085 PUSHL CHA + 1735 ; 

0148 C8 9F 00087 PUSHAB OP_ASG ; F 

000000006 90 g F 00 CALLS #2; SYSSSNDOPR : 3 
5 DO 0009 MOVL STA : : 

0D E 6009 BLBS STATUS, 4$ : : 

7 DD 0098 PUSHL ATUS : 1737 : 

E D4 O009A CLRL = SP) : : 

007281EC BF DD 909 PUSHL #7504364 : : 

69 3 FB A CALLS #3, LIBSSTOP : ; 

0D DO «(AB OE 6 AS 4$: BLBC OPERATOR PRESENT, 5$ > 1744 : 

56 DD 000A9 PUSHL : 1746 ; 

1 DD O00AB PUSHL Re ; : 

y O72 APE REE HST ERER a 7 ; 

00058061 SF ; pI B6 5$: CMPL status, a seosks : 1753 : 
65 12 00080 BNE $ ; 3 

C8 «AB OG BF CL R PLY PENDING : 175 3 

FFO. CF Fe cs CALLS ATERACTIVE_JOB : 175 ; 
007281FC BF DD OOOCA PUSHL @ gf 80 > 1762 : 

69 01 FB 00000 CALLS #1, LIBSSTOP : 3 


en co 
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ASSIST 16-Sep- VAX=11 $-32 V4.0-742 6 
V Bhi 12: =Sep- 1382 9}: Oe: % DISK$V neh TER: CMOUNT. SRCJASSIST.B32; gee (3 
09 0 ke eg b3 6$ Bree «OPERATOR PRESENT, 7S + 1775 
0072088 a dD 00009 PUSHL ae ; + 1777 
2 D AB ne ps 7$ gets ! RATOR PRESENT + 1778 
7E ose? gf Be # noveuL #9 4 -(SP) : 1779 

anoo" FFF BOGE Pighaw O5pTA_TINE ; 

000000006 99 4 F F CALLS #4, SYSSSETIMR : 

: D F MOVL RO STATUS ; 
- 7 fF PUSHL stitus, + 1781 

69 1 FB 00101 CALLS #1, LIBS$STOP : 
19 DD 00104 8$ PUSHL + 1782 

000000006 00 Qi Fe 1 CALLS SYSSWAITFR : 
E p 100 LAL p) > 1783 

ooooon00c Ope” OS ORG OOtts Melts Nettle ' 
3 DD ote PUSHL + 1784 
ooooooons 00 og BRE EET og, GALS fla avggaere 90 
05 CB AB E9 00127 BLBC REPLY “PENDING, 10$ + 1791 
FE60 CF 00 FB 00128 CALLS , POST_READ_TO_MBX : 1793 
04 00130 10$: = RET : 1795 


; Routine Size: 305 bytes, Routine Base: SCODE$ + 0225 


; 899 1796 1 


1$-ep-1984 FoR ee WRT SUMGHASTERSEMOUNT. SRCJASSIST.B32~3°" (95 


A 
V 


; 38) 1738 } ROUTINE SET_TARGET_MASK : NOVALUE = ‘ 
; 308 1 35 1 !+4 ’ 
; ope ! } : Functional description: . 
3 208 1 § 1! Get the device characteristics and figure out which class ; 
3 1 1! of operator is to receive the request. If the device is a . 
; 908 1804 1! tape. — 3 Bef pease’ te tape class operators. If the ‘ 
; 909 1805 1! ce sk, send the request to disk class operators. : 
; 910 1 $6 1! If ene te is neither tape or oi gk (ie. the ~ screwed : 
; 911 1 1! up the device name on the command Line) then send the ; 
: a 1808 1! request to both disk and tape class operators. We remember ; 
; 91 1809 1! the operator class mask in case we later have to cancel ; 
3; 9146 1810 1! the request. : 
; 915 1811 1! : 
; 916 1 \¢ 1 ! Input: ; 
; 917 1813 1! : 
; 918 1si% 1! None. : 
; 919 1815 1! > 
: 3g 1318 1 ! Output: ; 
: 921 + 3 1! F 
,; F ¢ 1818 1! None. : 
. F 1819 1! : 
; 924 1820 1 ! Implicit Input: ’ 
; 925 1821 1! : 
; 926 18 § 1! The MOUNT data base. Note that: 3 
: 927 18 2 DEVICE_STRINGL.DEVICE_INDEX*2) = the address of string descriptor : 
3 $99 \s : : of the device currently being mounted. : 
: 9 1 1! Implicit Output: ; 
; «931 18 ° 1! 4 ; 
: 336 1828 1! OPERATOR_MASK = mask of target operators. Only > 
s vs is 9 1! the low 3 bytes are significant. : 
; He 1830 1! : 
; 935 1831 1 !<- : 
; 9 18 ; 1 : 
; 93 183 BEGIN ! Start of SET_TARGET_MASK 

; 938 1834 

3; 939 1835 EXTERNAL 

: 940 18 DEVICE_INDEX : LONG VOLATILE, ! Index into aforementioned vector 

3 Be) Ht PHYS_NAME : VECTOR VOLATILE; ' Vector of device descriptors 

3 308 1839 LOCAL 

3: 944 1840 DEVICE_CHAR BBLOCK CDIBSK_LENGTH),! Primary characteristics buffer 

: 945 1841 DEVICE CHAR2 BBLOCK CDIBSK_LENGTHJ,! Secondary characteristics buffer 

3 2e8 9 DEVCHAR_DESC BBLOCK CDOSCSK_S_BLNJ, ! Descriptor of primary char. buffer 

; 94 184 DEVCHAR_DESC2 BBLOCK CDSCS$K_S_BLNJ, ! Descriptor of secondary char. buffer 

: 948 1844 STATUS LONG; 

: 949 1845 

: 950 1 rm] ! 

; Be) is Set up the device characteristic buffer descriptors. 

3 988 1 rk DEVCHAR DESC CDSCSW_LENGTH] = DIBSK_LENGTH; 

: 954 1850 2 DEVCHAR“DESC [DSC$B-DTYPE) = DSCSK-OTYPE_T; 

; 955 1851 DEVCHAR_DESC [DSC$B_CLASS = DSC$K- CLASS. “S; 

; 328 1 26 DEVCHAR_DESC patee POINTER) = DEVICE_CHA 

; 95 185 DEVCHAR-DESC2 CDSCSQ_LENGTH)] = DIBSK -tenetn:; 
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; 928 1854 DEVCHAR_DESC pecse pr yee] = DSCSK_OTYPE_T; 
; 9 1855 DEVCHAR_DESCe [DSC$B_CLASS = DSCSK_CLASS S; 
; 960 1 § DEVCHAR DESC SO RC SA POINTERS = DEVICE_CHAR2; 
: +9 : : OPERATOR _MA MASK : ! Zero the operator targt mask. 
: 308 1 28 Get the govice gherestorrettce and perform some sanity checkin ng: 
> 964 1860 i If this device not mountable, don’t worry, the operator will be 
; 965 ’ o notified and he'll think of something. 
: 309 P 1808 éTaTUS = $GETDEV yee = PHYS _NAME C.DEVICE_INDEX *2), 
; 968 P 1864 PRIBUF =DEVCHAR_DESC 
; 369 P 1865 , SCDBUF = DEVCHAR_DESC2 
: 44 Ht IF (NOT .DEVICE _CHARCDEVSV. FOD]) OR (.STATUS EQL SS$_NOSUCHDEV) 
: ez 130) gg TR OE = (OPCSM_NM_DISKS OR OPCSM_NM_TAPES) ! Send to tape and disk operators 
: 975 1871 - 
; oF 1976 i Set the operator mask according to device class. That is, tape 
: 44 or? requests go to TAPE operators, disk requests go to DISK operators. 
: 979 187 OPERATOR_MASK = (IF .DEVICE_CHARCDEV$V_SQD) 
: 981 1879 OPCSM_NM_TAPES 
: 98 1878 
; 98 1879 OPCSM_NM_DISKS); 
; 4984 1880 1 END; ! End of SET_TARGET_MASK 


.EXTRN PHYS_NAME, SYSSGETDEV 
0004 00000 SET_TARGET_MASK: 


-WORD Save R2 : 1797 
52 0000' CF 9€ 90002 MOVAB OPERATOR MASK, R2 : 
SE FFOC cE 9E 9000 MOVAB -244 P ; 
04 AE 01060074 8F 00 0000C MOVL #7690836 DEVCHAR_DESC + 1849 
08 AE g¢ AD 9E 00014 MOVAB DEVICE HAR, DEVCHAR_DESC+4 ; 185¢ 
01060074 8F DD 00019 PUSHL #176 > 185 
04 AE 10 aE 9E OO01F OVAB DEVICE _CHAR2, DEVCHAR _DESC2+4 > 1856 
D4 00024 CLRL OBERAT ATOR_MASK : 1857 
E DD 000 6 PUSHL > 1866 
—E D4 000 CLRL ssp) F 
10 AE OF 0 A PUSHAB DEVCHAR_DESC : 
7E D4 D CLRL = = (SP) : 
50 00006 CF 01 78 000eF #1, PEVICE INDEX, RO : 
0000GCF40 DF 00035 PUSHAL PHYS : 
000000006 00 5 FB 0003A CALLS >, gheseetoey ; 
D AD é E1 00041 BBC DEVICE CHAR+T, 1 : 1867 
00000908 = &F D} 46 CMPL Sea TOS 3 ; 
4 ; 4D BNEO : 
62 C 6 OF 1$: ROVL #12, OPERATOR_MASK > 1869 
05 8C AD 5 £1 ; 2$ BBC as, DEVICE CHAR. 3$ > 1875 
50 4 D MOVL #4. R ; 
; 1 B BRB : 
50 D0 D 3$ MOVL #8, RO : 


2 
vb2-001 1b-e0-1944 Mites | BEScbinGmaSfenscmounT. SkcJassist.e3203%° «35 
62 50 0 68060 4$: nove RO, OPERATOR_MASK é 1880 
; Routine Size: 100 bytes, Routine Base: S$CODES + 0356 


3 = 


333382 


wr 


0000900000000 0000 
SSN eC 


109 C9 Cd Cd CD C9 COC CD CD 
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ODONAOUL wr — 


SESS SSeS 3ES333 


at ts 


UFR @2OOOVNOAUES WN "OOO VOUS WhO 


DOOCOOCOCCOOOOOOOOOoOOoOoOoCoOOoCOoOO 


wa ep AANA APITINPIPOPINIPINININD — 2 2 IO 
NOME WN 9 ODN UE “OC OODNAUES WN" OOONO NEW 


em ec me ee mm ec ee me ee ee ee ed ed ed ed ed = dd dd od dd wd = dd dd 
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ROUTINE CANCEL_REQUEST (REQUEST_STATUS) : NOVALUE = 


be 
Functional Description: 


S 


This routine will cancel an outstanding operator request. 

The reply mailbox is deleted after the cancelation message 

is sent so there will be no stale messages lying around to 
confuse things later on. The user is notified of the cancelation. 


Input: 

REQUEST_STATUS : A boolean value that describes the status of the 
operator request. A value of 1 indicates the request 
has been successfully completed without operator 
intervention, and the reason for the request no 
longer exists. A value of 0 indicates that the 
request has not been satisfied, but is being canceled 
for some reason. 

Output: 

None. 
Implicit Input: 

REPLY_PENDING = TRUE if there is an outstanding operater request. 
Implicit Outputs: 


REPLY_PENDING = FALSE 


BEGIN ! Start of CANCEL_REQUEST 


IF_.REPLY_PENDING 
THE 
BEGIN 
Send cancelation notice to operator 
BBLOCK CCANCEL_MSG_BUF COPCSL_RQ_OPTIONS], OPCSV_RQSTDONE] = .REQUEST_STATUS; 
CANCEL _WSG_BUFFOPCSL ROSTID) = .REQUEST 10; 
CANCEL MSG BUF RTOR_MASK; 
SSNDOPR (MSGBUF=CANCEL_MSG_DESC, CHAN=.REPLY_CHANNEL) ; 


i Deassign the channel to the re y mailbox. Since it 
is @ temporary mailbox, it will be deleted. 


SDASSGN (CHAN = .REPLY_CHANNEL); 
REPLY_CHANNEL = 0; 

REPLY_PENDING = FALSE; 

Clear the reply event flag. 
SCLREF (EFN=REPLY_FLAG); 


Sete Ge Ge Ge Geese Ge ee tee 
> Sd sd —) 2 9 2 4 


0156 §=C2 


3; Routine Size: 
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1 t 
Hs ; Notify the user of the cancelation. 
194 4 IF .REQUEST_STATUS AND (NOT .MOUNT_FAILED) 
1308 SIGNAL (MOUNS_RQSTDON) 
1944 ELSE 
1945 SIGNAL (MOUNS_OPRQSTCAN); 
‘a pokes 
1948 1 END; ! End of CANCEL_REQUEST 
.EXTRN SYSSDASSGN, SYSSCLREF 
0004 00000 CANCEL_REQUEST: 
-WORD Save R2 
52 0000' CF 3 000 MOVAB REPLY_CHANNEL, R2 
¢ A2 €9 0000 BLBC REPLYPENDING, 3$ 
01 09 4 AC FO 9008 INSV  REQUEST_STATUS, #0, #1, CANCEL_MSG_BUF +6 
0162 ¢ EC A2 DO 0001 MOVL §§ REQUEST“ID, CANCEL_MSG BUF+18 
015A C2 E8 A2 D0 00019 MOVL § OPERATOR_MASK, CANTEL_MSG_BUF +10 
62 DD 0001F PUSHL REPLY_CHANNEL 
016C C2 9F 00021 PUSHAB CANCEL _MSG_DESC 
000000006 00 02 FB 00025 CALLS #2, SYSSSNBOPR 
62 DD 0002C PUSHL FPLY CHANNEL 
000000006 00 01 FB 000 : CALLS #1, SYSSDASSGN 
be D4 000 CLRL  REPLY_CHANNEL 
C8 A2 D4 00037 CLRL REPLY PENDING 
1A DD OOO3A PUSHL # 
000000006 00 01 FB 005¢ CALLS #1, SYSSCLREF 
0c 04 AC E9 0004 BLBC REQUEST STATUS, 1$ 
08 ce A2 €8 00047 LBS MOUNT FRILED, 1$ 
00724073 BF «DD 00048 PUSHL #7512779 
06 11 00051 RB 2$ 
0072A033 af DD 00053 1$: PUSHL #7512115 
000000006 00 1 FB 90058 3: CALLS #1, LIBSSIGNAL 


97 bytes, Routine Base: SCODE$ + O3BA 


12 
18-5 “1984 01:04:04  VAX=11_BLiss-32_v4.0-742 p 
Ve-$ep-1984 12:45315 — DISKSVMSMASTERSCHOUNT. SRCIASSIST.B3273°" (95 


: ’ 5 1383 } ROUTINE CHECK_FOR_REPLY : NOVALUE = 

:1 ; 198) | t+ 

: : 8 + ! Functional Description: 

; 1960 1954 13 This routine will check to see if the operator 

: 1061 1955 1! replied to a request after DELTA_TIME expired. 

; 1996 1328 7} If so, the response must be parsed and acted upon. 

: 106 132 1! Note that this might require undoing a successful mount. 

; 1064 19 8 1! If the request is still outstanding and the mount 

: 1992 137 : } completed successfully, then cancel the request. 

HB HRT | | tome 

3 ie) 1968 ’ WAIT_ENABLED = TRUE if we are to wait, FALSE if not. 

: 1071 1965 i Output: 

Oe eee ees 

; 1075 1969 1 ! Implicit Inputs: 

: 1099 1971 13 REPLY_PENDING = 1 if there is an yoyo request. 

3; 1078 1376 13 REPLY_DESC = etring descriptor of the operator's reply. 

3; 1079 1975 1! REPLY_BUFFER = buffer holding the operator's reply. 

3 1oe0 13ee ' MOUNT data base. 

; Ise 1308 : Implicit Outputs: 

: 1084 1978 1 The MOUNT data base may be updated as a result of the operator's reply. 
.| 

> 1087 1981 2 BEGIN ! Start of CHECK_FOR_REPLY 
: 1088 198% 

1B H8RE: g toca 

3 1091 1985 EF_STATE : LONG, ! State of Event flags 
3 1 138 STATUS : LONG; 

> 1094 1988 2 IF NOT .MOUNT_FAILED 

1g gM 

: 1097 1991 i The mount succeeded. Operator intervention is 

3 ! 1336 : no longer necessary, so cancel the request. 

> 1100 1994 CANCEL_REQUEST (REQUEST_SATISFIED) 

3 133) 1995 ELSE 

a. 1335 pecim 

; 1104 1998 i The mount failed (again). 

: 1108 i If a reply was pending, wait for either the timer to go off or 

3 119 1 ! for the reply to arrive, whichever cones first. If no reply is 
3; 1108 § ! pending, then simply w it for the timer to go off. Cancel the 

3 119) timer on the way out, Just to be thourough. 

: 1111 5 i If no operator is present, only attempt to read the reply mailbox 
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! every tenth time through this routine. This is necessaray to prevent 


prevent mount from looping rapidly through this code. 
iF wot (STATUS = SSETIMR (EFN=TIMER_FLAG, REQIDT=TIMER_ID, DAYTIM=DELTA_TIME)) 
ABORT_MOUNT (.STATUS, 0, .MOUNT_STATUS); 


Secs 


: 1118 
3 111 

: 1114 

: 1115 4 

; 1116 010 

:111 11 

: 1118 ig 

2111 13 4 IF (.REPLY_PENDING AND .OPERATOR_PRESENT) 

; i 9 1 é OR. C(NOT .OPERATOR_PRESENT) AND T.RETRY_COUNTER/10) GEQ 1) 
11 O16 4 BEGIN 

: 11 7 4 RETRY_COUNTER = 'F 

: 11 18 5 IF (.REPLY_I0SB £6,0,16,0) NEQ 0) 

> 1125 19 4 THE 

: 11 6 020 4 PARSE_REPLY () 

211 0 e LS 

: 1128 3 4 SWAITFR (EFN = TIMER_FLAG); 

> 1129 023 4 

: 1130 024 ELSE 

: i 1 0 3 SWAITFR (EFN = TIMER_FLAG); 

: 11 027 SCANTIM (REQIDT = TIMER_ID); ! Cancel the timer 
; 1 4 2 8 SSETEF (EFN = TIMER_FLAG); i Set timer flag 
:11 $88 RETRY_COUNTER = .RETRY_COUNTER + 1; 

+ 1137 2031 1 END; ! End of CHECK_FOR_REPLY 
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0004 00000 CHECK_FOR_REPLY: 
-@ORD Save R2 3 1949 
5 0000" CF 9 9002 MOVAB RETRY_COUNTER, R2 ; 
0 F8 A2 E8 0000 BLBS § MOUNT-FAILED, 1$ : 1988 
or DD 0000B PUSHL 3 : 1994 
BE AF l f ant CALLS #1, CANCEL_REQUEST ; 
: 7E 03E7 BF 3c 00 13 1$: MOVZWL #999, -(SP) + 2009 
. E 04 0001 CLRL - 5 
0000" CF 9F O01, PUSHAB DELTA_TIME ; 
19 DD 91 PUSHL ; 
000000006 00 04 FB 0 CALLS #4, SYSSSETIMR : 
E g 7 BLBS § STATUS, 2$ ; 
08 A2 DD A PUSHL  MOUNT_STATUS : 2011 
7E 04 D CLRL. = = (SP) : 
50 0D ; PUSHL STAT : 
000000006 00 03 F 1 CALLS #3, LIBSSTOP : 
4 Fe OA? OE 2$: BLBC REPLY PENDING, 3$ + 2013 
A FC Ad CE ¢ BLBS § OPERATOR_PRESENT, 4$ F 
14 ce we 3$: BLBS  § OPERATOR™PRESENT. 5$ + 2014 
50 62 F cf re DivLs , RETRY_COUNTER, RO ; 
D4 O004A 4$: CLRL §RETRY_COUNTER : 2017 
30 A 8 4C TSTW —- REPLY10SB : 2018 
8 4F BEQL 3 
0000v CF 0 FB 00051 CALLS #0, PARSE_REPLY > 2020 


N 12 


ASSIST 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 4 
yon -001 1 b-Se0-1984 9bee ee WRK SUMGHASTERSEMOUNT. SCIASSIST.B3203°" (35 
8 43 36 5$: BUHL #35 + 2025 
000000006 00 QI FB A ee CALLS pf YSSUAITFR : ane 
43 03€7 BF Re $3 : MOV ZWL 49 9, =(SP) : 
000000006 0 3 FB CALLS SYSSCANTIM : 
19 DD oF PUSHL ; 6 + 2028 
000000006 00 01 FB 0 1 CALLS SYSSSETEF ; 
62 06 00078 7$ INCL RETRY. COUNTER : 2030 
04 0007A RET + 2031 


; Routine Size: 123 bytes, Routine Base: S$CODE$S + 0418 
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PAPEXAPEDASA SSS & PPP PL 


NNN NOAA AAAAAA AS MMIMIVIVIUIUIUIUIVI BPP PPP LE LE 
SSoe 
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mee ee es em et ed ed ed nd ed ed dd wd = = dd 
ee ce ce ce ce ee cel ee ce ce ae ee ee cee ec ee ee ee cD ee ce ee aD ce cD ee cD ce aD cD ce ce ee ee ee ce ce a a a a ed 


RoPoPononoNonaNnoNnononofnofyununy» 


Sooooo 
G00 00 00 000000 
CONIA UNE Ul — 
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ROUTINE ALLOCFAIL_HNDLR : NOVALUE = 


144 
' Functional Description: 
This routine will attempt to recover from a device 
allocation failure. This means that the device 
specified by the user (or operator) cannot be 
successfully allocated. Notify the operator and 
try again. Current allocation failures handled are: 
SS$_DEVALLOC - device allocated to another user 
SS$_NODEVAVL - no devices of generic type are available 
SS$_NOSUCHDEV = incorrect device specifier 
Input: 
None. 
Output: 
None. 
Implicit Input: 
MOUNT_STATUS status of current mount attempt 
REPLY PENDING = TRUE if an operator request is outstanding 
The MOUNT data base. 
Implict Output: 


The MOUNT data base may be changed as 
the result of operator intervention. 


BEGIN ! Start of ALLOCFAIL_HNDLR 
EXTERNAL 

COMMENT STRING : BBLOCK ! User comment string 

DEVICE _TNDEX : LONG VOLATILE, ! Index into device name vector 

E : VECTOR VOLATILE; ! Physical device name descriptor 

LITERAL 

FAO_CTRL_SIZ = FAO_BUFFER_SIZE/2; ! Maximum size for FAO control string 
LOCAL 

ALLOCFAIL_FAO : BBLOCK CDSCSK_S_ BLN], ! FAO control string descriptor 

FAO CTRL_BUF : BBLOCK FAO_CTRC_S12Z4,! Buffer for FAO control strina 


If this condition is different from the one gigneted previously, 
cancel any outstanding requests before handling this condition. 
! Otherwise do nothing. 
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EQUEST (REQUEST_NOT_SATISFIED); 
PRESENT = TRUE; 


the output descriptor and get the FAO control string. 
ENGTH) 
yeed 
ASS 
INTE 
G 


! Assume operator present 


TR ; 
MOONS_NODEVAVL 
ALLOCFAIL_FAO 

ALLOCFAIL_FAO, 
SG_TEXT 


ot 


~"O2z=z 


fosc$w_LENGTH), 


rcoomnnnn 
"OG? 
orre-s"oomn 


HnnUNnox 


) 
HEN 
ABORT_MOUNT (.STATUS, 0, .MOUNT_STATUS); 
| Set up the output descriptor and format the operator request. 


FAO_RESULT_DESCCDSCS$A_POINTER] = FAO_BUFFER; 
FAO-RESULT-DESCLDSCS$W-LENGTH] = FAO-BUFFER. SIZE; 
$FAO (ALLOCFAIL_FAO 

FAO_RESULT_DESC CDSC$W_LENGTH), 

FAO-RESULT DESC 

PHYS_NAME [.DEVICE_INDEX*2], 

COMMENT_STRING 


, 3 
Send the request to the operator. 


SUBMIT_REQUEST (FAO_RESULT_DESC,EXPECT_REPLY) ; 


! End of ALLOCFAIL_HNDLR 


-EXTRN COMMENT_STRING, SYSSGETMSG 
SS$FAO 


“EXTRN SY 
0004 00000 ALLOCFAIL_HNDLR: 
-@ORD Save R2 : 2032 
52 0000' CF 9€ 0000 MOVAB FAO_RESULT_DESC, R2 ; 
36 FEF CE 9 0 MOVAB -26%(SP), SP 3 
Fcec C FC6 ‘ i cmPL MOUNT_STATUS, PREVIOUS_STATUS ; 2090 
FC70 C2 00006 CF of 1 CHPL —DEVICE_INDEX, PREVIOUS DEV, 1Dx : 2091 
1 1¢ BEQL 3 
7E D4 OOOIE 18: CLRL © =( SP) : 2094 
Fesc Ce 0 09 ; ROVE’ #1, OPERATOR PRESENT : 2095 
78 AD O10E0100 BF DO OOOSA MOVE | #1P69« 76, ACLOCFAIL_FAO ; 3339 


=1984 01:04:04  VAK=11 Bliss-32 V4.0-742 Page 37 
ars 94:08:08 DISKSVMSMASTER:CMOUNT. SRCJASSIST.B32:2° 185 
FC OAD 6 9 MOVAB FAO_CTRL_BUF, ALLOCFAIL_FAO+4 ; 310 
7E D mova 1,7=(SPY : 210 
F8 AD i PUSHAB ALLOCFAIL_FAO : 
FB OAD OOF C PUSHAB ALLOCEALL-FAO : 
0072A05B BF DD 0003F PUSHL 15 : 
000000006 00 05 Fe 45 CALLS #5 S1SSGETHSG : 
9 E 4¢ LBS STA ; 
FC68 ¢ DD 0004F PUSHL  MOUNT_STATUS + 2109 
D4 CLRL. =(SP ; 
; DD PUSHL STATUS : 
000000906 0 FB CALLS #3, LIBSSTOP : 
4 A F 06 ¢ 3 E 2$: MOVAB FAQ_BUFFER, FAO_RESULT_DESC+4 + 2113 
“ 0 F 6 MOVW #512, FAO_RESULT_DESC + 2114 
006 cr F 00069 PUSHAB COMMENT STRING + 2120 
50 00006 CF 1 78 0 ASHL = #1, DEVICE INDEX, RO ; 
OOO0GCF40 DF PUSHAL PHYS_NAMELROJ ; 
: DD 7 PUSHL § 3 
DD OO07A PUSHL : 
F8 AD 9F O007C PUSHAB ALLOCFALL FAO F 
000000006 00 5 FB 0007F CALLS #5, FRO : 
1 DD 0086 PUSHL + 2126 
: DD 0008 PUSHL Rg : 
FDOO 3s CF 02 FB O008A CALLS #2, SUBMIT_REQUEST ; 
04 0008F 3$: RET + 2127 


; Routine Size: 144 bytes, Routine Base: SCODES + 0496 
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ROUTINE MEDOFL_HNDLR : NOVALUE = 

'e4¢ 

Functional Description: 
This routine will attempt to recover from a medium 
offline condition, This usually means that the disk is 
not spun up. Notify the operator that :the device 
needs to be put online. 

Input: 
None. 

Output: 
None. 

Implicit Input: 
MOUNT_STATUS = status of the current mount attempt 
REPLY PENDING = TRUE if an operator request is outstanding 
The MOUNT data base. 

Implict Output: 


The MOUNT data base may be changed as 


i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
the result of operator intervention. 


BEGIN ! Start of MEDOFL_HNDLR 
EXTERNAL 
COMMENT STRING : BBLOCK, ! User comment string 
LABEL_STRING : VECTOR VOLATILE, ' Vector of label descriptors 
PHYS E : VECTOR VOLATILE, ! Physical device name descriptor 
DEVITE_INDEX : LONG VOLATILE; ! Index into DEVICE_STRING vector 
LITERAL 
FAO_CTRL_S1Z = FAO_BUFFER_SIZE/2; ! FAO control string size 
LOCAL 
MEDOFL_FAO : BBLOCK COSCSK_S_BLN) 
MEDOFL ~BUF : BBLOCK CFAO_CTRC S124, 
VOLUME—F AO : BBLOCK COSCSK_S_ BLN 
VOLUME ~BU : BBLOCK (FAO CTRC S124, 
VOLUME _DESC BBLOCK COSCSK_S BLN 
VOLUME“BUFFER =: BBLOCK CFAO_CTRC_SIZ), 
STATUS LONG; 


i 
i If this condition is different from the one signaled previously, 


Liss-32 V4.0-742 Page 38 
MASTER: CMOUNT .SRCIASSIST.B32:2> at 


1b-$ep-1964 Fh Oe ee LUMOMASTERSCHGUNT. SACIASSIST.B32037° (17), 


: 1293 185 ' cancel any Peptending usccondit efore handling this cordition. : 
3; 1294 1 $ ! Note that if the previous condition was SS$_INCVO a? 1 do . 
3; 1295 1 ' not saneai the request and issue another one. This is ive . 
3 1 38 1 8 ' the operator a chance to remove the incorrect volume Soon he drive . 
: : 44 133 and to (hopefully) insert the correct volume. ; 
: 1299 191 IF ((.MOUNT_STATUS AND STSS$M_COND_ID) NEQ (SS$_INCVOLLABEL AND STSS$M_COND_ID)) 5 
: 1300 136 AND ((. erry IOUS_STATUS AND STSSM_COND_ 14 Eat (SS$_INCVOLLABEL AND STSS$M_COND_ID)) 3 
: 1301 12 AND (.DEVICE_INDEX EQL .PREVIOUS_DEV_1 : 
gs 3 oe 194 TH 3 
; 130 195 BEGIN 3 
3; 1304 138 PREVIOUS_STATUS = .MOUNT_STATUS; : 
3 : 05 13f END; ; 
3; 1 88 199 IF (.DEVICE_INDEX ; 4 Hb S$_DEV_IDX) 3 
: 1308 00 OR (.MOUNT_STATUS NEQ .PREVIOUS_STATUS) 

3; 1309 01 THEN 

3 1310 8 BEGIN 

3 1311 0 CANCEL_REQUEST (REQUEST_NOT_SATISFIED); 

3 1 \¢ 04 OPERATOR_PRESENT = TRUE; ! Assume operator present 

3 Vatz ; 06 END; 

; \ 1? o8 If there is ns cutstanding request, then submit a request. 

3 1317 09 iF Not -REPLY_PENDING 

3: 1318 10 THE 

3: 1319 11 BEGIN 

3; 1320 \¢ ! 

3 13s) $i7 Set up the output descriptor and format the volume Label string. 

3 1395 e215 VOLUME DESC DSCeu LENGTHS = FAO_CTRL_SIZ; 

: 1324 2216 VOLUME-DESC COSC$B_DTYPE = DSCSK_DTYPE_ t: 

: 1325 217 VOLUME_DESC [d>SC$B-CL = ah ect ASS. S; 

: 15 6 218 OLUME~DESC CDSCSA~PO! = E BUFFE : 

3 1327 21 F .LABEL_STRINGC.SEVICE ERNDEX®S vere 

3; 1328 220 HEN 

3 ! $9 221 ; BEGIN 

: : Ht : § 2 Set up the output descriptor and get the FAO control string. 

3 1 § 5 5 4 VOLUME FAO COSCSW_ benery = = FAQ CTRL_SIZ; 

71 6 4 VOLUME-FAO COSCS$B_DTYP DSCSK_DTYPE_f; 

3; 1335 ‘ VOLUME- -FA0 DSC$B_ CLASS = = DSeske CLASS"S; 

3 1 3 4 VOLUME —F DSCSA_POINTER] = VOLUME acuta 

: 1 P IF NOT™ CSTATU = SGETMSG (MSGID = AOUNS V 

> 1338 P 2230 MSGLEN = POLURE” PkO with LENGTH], 

3; 1339 P 1 BUFADR = VOLUME-FAO, 

3 1340 P ¢ FLAGS = MSG_TERT 

3 1341 )») 

3 1 ; 4 4 THEN 

3 ’ Z 5 2 ; ABORT_MOUNT (.STATUS, 0, .MOUNT_STATUS); 

3 ' 5 $ ? } Format the volume label string, 

: 1 8 P 3 & $FAO VOLUN 

+ 1348 P 2240 4 OLUME ~best COSC$W_LENGTH), 

3: 1349 P 2241 4 VOLUME “DESC, 


Sep-1 4 VAX-11 Bliss 32 7N 4.0°742 
1$-te Hatt fi 93:9 3:98 Disk SVMSMASTER: CMOUNT. SRCJASSIST.832; Pgse 479 vi 


: } 9 Pp ry é ) LABEL. STRING C.DEVICE_INDEX*2] 

3 1 § 44 4 END 

3 3 45 LSE 

; } ¢ rf VOLUME_DESC CDSCS$W_LENGTH] = 0; ! Set volume name null 
; 1 § re | } Set up the desctiptors ard get the FAO control string for the message. 
; 1358 0 MEDOFL -fA0 DSCSW 4 LENGTHJ = FAO_CTRL_SIZ; 

; 1359 1 MEDOFL FAO DSC$B_DTYP = DSCSK DT TPE. t; 

| ¢ L-FAO COSC$B_ CLASS = DSC$K~ S.S 

; 1361 FL-FAO COSCS$A-POINTER]) = MEDOFC 6 

s 1 ¢ P 4 MSG (MSGIB = MOUNS_MOUNTDEV> 

:1 P 2255 MSGLEN = MEDOFC_FAO COSCSwW_ penered, 

3; P 2§ BUFADR = MEDOFL-FAO, 

; 1365 P 225 LAGS = MSG_TERT 

: 1se9 25 y 

3 a4 re Set up the outout descriptor and format the operator request. 

: 1353 6¢ FAO -RESULT_DESC CDOSCSW_LENGTH] = FAO_BUFFER_SIZE; 

; 137) $8 FAO-RESULT_DESC CDSCSA~ POINTER] = FAO “BUFFER; 

s 1 Lf P 2264 SFAO (M meDOPL FAO, 

3 137 P 2265 FAO “RESULT. ~pEseCescou LENGTH), 

3 1374 P 66 or 

3; 1375 P 2267 VOLO ESE, 

3; 1376 P 2268 ae DEVICE_INDEX*2), 

3s 1377 P 2269 COMMENT STRING 

3 13/8 soy ; 

3 1379 71 ! 

3 1330 si¢ Send the request to the operator. 

3 1356 274 SUBMIT_REQUEST (FAO_RESULT_DESC,EXPECT_REPLY); 

; 138 $$i2 § END; 

3; 1384 $76 

3; 1385 2e7 1 END; ! End of MEDOFL_HNDLR 


.EXTRN LABEL_STRING 
003C 00000 MEDOFL_HNDLR: 
WORD 


5 G E MOVAB Seve 2 Ra gRS RS . oo 
4 itd 2096 88 E 808 MOVAB SYS$GETMSG : 
3 0 G CF 9E 19 MOVAB ODEVICE_INDEX, : 
2 00° CF 4 3 1 MOVAB nays STATUS, R2 3 
Fc CE 9E OOOIA OVAR - d : 
0 62 F00000 ef CB OO01F BICL -268435449, MOUNT_STATUS, RO : 2191 
00000108 8F 20 b 7 CPL , 4264 
50 04 A2 F0000007 BF CB b BICL3 #-268435449, PREVIOUS_STATUS, RO : 2192 
00000108 8F 9 b} ; CPL RO, #264 : 
08 A2 65 of i CPL DEVICE_INDEX, PREVIOUS_DEV_IDx : 2193 
04 A2 62 8 8 4 MOVL | MOUNT_STATUS, PREVIOUS_STATUS > 2196 


H 13 
ASSIST 16-Sep-1984 01:04: VAX=-11 BLiss-32 V4.0-742 Page 41 
yoo 801 1 =300 7138 94:08:08 DISKSVMSMASTER: CMOUNT. SRCJASSIST.B32:2" (11) 
08 A2 3 p 4C 1$: cmpL DEVICE INDEX, PREVIOUS_DEV_IDX : 2199 
04 A2 2 p ; cHPL MOUNT_STATUS, PREVIOUS_STATUS + 2200 
d4 00058 28: CLRL = = (SP) t 2203 
FE3S CF oj F 3h CALLS #1, CANCEL_REQUEST : 
Fa OA 1 0 F MOVL #1. OPERATOR PRESENT : 3204 
01 EC A2 FY 63 3$: BLBC REPLY_PENDING, 4$ + 2209 
0100 CE 01060100 8F dO O68 4$: MOVL § #17694976, VOLUME_DESC + 2215 
104 cE E 1 MOVAB VOLUME BUFFER, VOCUME_DESC+4 + 2218 
50 4 1 0076 ASHL #1, DEVICE INDEX, RO + 2219 
GCF40 D A TSTL LABEL_STRINGCR : 
_— de 15 00 i BLEG As seeoaite 
FEFO CD 010E0100 8 p0 0908 MOVL § #17694976, VOLUME_FAO > 2225 
FEF4 CD 0108 cE E OO08A MOVAB VOLUME BUF, VOLUME_FAO+4 ; 328 
7E 1 7D 00091 mova #1, =(SP) : 22 
Hg 2 Sr dates SA atu : 
0072A05 BF DD O09¢ PUSHL Ws 2i7 : 
64 05 re OOA CALLS #5, SYSS$GETMSG ; 
0D 3 £8 OOOA LBS = STATU F 
oe Oe OB bORR PUSHL — ROUNT STATUS tags 
5 DD OOOAC PUSHL STATUS : 
000000006 09 0 Fe OOAE CALLS #3, LIBSSTOP : 
0 é 01 78 O00RS 5$: SHL #1. DEVICE _INDEX, RO + 2243 
GCF4O DF 0008 PUSHAL LABEL_STRINGCR : 
tt ce OF So0RE USHAB LABEL. ae _— 
0108 CE OF ep PUSHAB VOLUME~DESC : 
FEFO CD 9F 000C6 PUSHAB VOLUME~FAO : 
65 04 re GOOCA CALLS #4, SYSSFAO Sie 
0100 CE 84 900¢ 63: CLRW VOLUME DESC + 2246 
F8 AD 010E0100 &8F DO 000D3 7$: MOVL #17694976, MEDOFL_FAO : 2250 
FC AD FEF8 CD 9€ 000DB MOVAB DOFL_BUF, MEDOFC_FAO+4 + 2253 
7E 01 7D OE} MOva 1, (SP) : 2258 
FB AD 9F OO00E4 PUSHAB MEDOFL_FAO ; 
0072A068 BF Bb OOOEA PUSH” #7512130 ~ 
64 05 FB OOF CALLS #5, SYSSGETMSG ; 
0398 C3 9200 F 80 OOF MOVW #512, FAO_RESULT_DESC ; 3268 
039c «(CC 198 C2 9E OOOFA MOVAB FAO BUFFER, FAO_RESULT_DESC+4 ; 36 
00006 CF 9 191 PUSHAB COMAEN STRIN : 2270 
50 6% 1 78 00105 ASHL = #1, DEVICE INDEX, RO : 
90 GCF40 DF 109 PUSHAL PHYS NAMECRO) : 
1 CE 9r 001 PUSHAB VOLUME _DE ; 
03 Co 9F 0011 PUSHAB FAO_RESULT_DESC : 
98 ¢ i 11 PUSHAB FAO-RESULT DESC ; 
F8 AD OF OO11A PUSHAB MEDOFL FA ; 
= Bt b> Ool2 fuse a : 2276 
0398 cg F 001 PUSHAB FAO_RESULT_DESC ; 
FBD4 = CF FB 6 CALLS #2, SUBMIT "REQUEST Fn 


3; Routine Size: 300 bytes, 


Routine Base: 


SCODES + 0526 


if: dep: 1382 93:28:93 BTS bmSmaSfenschountshcaassist.e3203%" «14 
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ROUTINE WRONGVOL _HNDLR : NOVALUE = 


1e¢ 
: Functional Description: 
This routine will attempt to recover from an SS$_INCVOLLABEL 


condition, which implies that the label of the volume presentl 
in the driv 


e does not match the volume Label specified by the Jeer. 
Input: 
None. 
Output: 
None. 
Implicit Input: 
MOUNT_STATUS = status of the current mount attempt 
REPLY PENDING = TRUE if an operator request is outstanding 
The MOUNT data base. 
Implict Output: 


The MOUNT data base may be changed as 
the result of operator intervention. 
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BEGIN ! Start of WRONGVOL_HNDLR 
EXTERNAL 


BSSSVEAR 


CRO AIPROROPOPOPONONINOPOPOPONONINUPOPOPUNIPUPINININIDY 3 ot 0 


PHYS_NAME : VECTOR VOLATILE, ! Physical device name descriptor 
DEVITE_INDEX : LONG VOLATILE, ! Index into DEVICE _STRING vector 
LABEL_STRING : VECTOR VOLATILE; ! Vector of volume Tabels 

LITERAL 


FAO_CTRL_SIZ = FAO_BUFFER_SIZE/2; ! FAO control string size 
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C 


WRONGVOL _F AO : BBLOCK ppsese 
7y'ye7 eae : BBLOCK LFAO_C 


If this condition is different from the one signaled previously, 
cancel any outstanding requests before handling this condition. 
Otherwise do nothing. 


F (.MOUNT STATUS NEQ .PREVIOUS_STATU 
BA DEVICE INDEX NEQ .PREVIOUS_DEV_]I 
BEGIN 
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3 146446 5 CANCEL REQUEST (REQUEST_NOT_SATISFIED); 

3 196? § OPERATOR PRESENT = TRUE; ! Assume operator present 
3 124? 8 Set up the output descriptor and get the FAO control string. 

3 1208 40 URONGVOL. FAO CDOSCSW_LENGTH] = FAO_CTRL_SIZ; 

3 1450 41 WRONGVOL—FAO Ds¢$B-DTYPE] = DSCSK_DTYPE_f; 

: Wee) rX: WRONGVOL_FAO [LDSCS$B_CLASS = DSCSK“CLASS"S: 

3 14 § 4 WRONGVOL . FAO CDOSCSA_POINTER] = WRONGUOL BUF; 

3 145 P 2344 4 IF NOT (STATUS = SGETMSG (MSGID = ROUNS ye: 

> 1454 P 2345 4 MSGLEN = WR RONGODL PAO 6SC$W_LENGTH, 

: ioe? P rk} 4 BUFADR = WRONGVOL_FAO, 

3 14 ° P 2347 & FLAGS = MSG TEXT 

3 145 48 4 )») 

3 1458 49 THEN 

3 1028 9 ABORT_MOUNT (.STATUS, 0, .MOUNT_STATUS); 

3 1303 334 Set up the output descriptor and format the operator request. 

3 1288 354 kao -RESULT_DESCCDSCSA_POINTER] = FAO_BUFFER; 

3 1464 355 FAO RESULT pests pseu, LENGTH] = FAO_BUFFER_SIZE; 

3: 1465 P $29 SFAO ( WRONGVOL 

: 1466 P 33 RESULT ADESC CDSC$W_LENGTH), 

3 1467 P 2358 FAO RESY LT-DESC 

> 1468 P 2359 PHYS_NAME C.DEVICE_INDEX*2) 

3 1469 360 ds 

3 1470 30) ! 

3: 1471 $¢ ! Inform the user and all interested operators that the drive contains 
: erg 30 ! the wrong volume. Note that this is just a message, and that no 

3 rt re reply is expected. 

; 1022 2366 SUBMIT REQUEST (FAO_RESULT_DESC,NO_REPLY); 

3 1479 § 68 i Call the medium offline pander to repuost that the correct volume 
3; 1478 69 ! be mounted in the specified drive. 2 orev ious condition context 
3: 1479 70 i must be reset Sonus ly, as SUBMIT “REQUES will not do so when sending 
3 e's re messages (instead of requests). 

: 1e56 ig PREVIOUS STATS = .MOUNT_STATUS; 

3 148 74 MEDOFL_HADLR ( 

3 1484 75 END; 

: 1485 6 

3: 1486 377 1 END; ! End of WRONGVOL_HNDLR 


0004 00000 WRONGVOL _HNDLR: 


-WO Save R2 ; 2278 

22 rere cf E 008 oad | FAQ RESULT pest. R2 ; 
FC6C é FC6 cS oj Hard RQUNT sETATUS, PREVIOUS_STATUS 2331 
FC70 = C2 00006 cf of 1? bror EVICE IMEX, PREVIOUS_DEV_IDX 2332 
7E D4 OOOTE 18: CLRL -(SP) ; 2335 
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Implicit input: 

None. 

Implicit output: 

The operator reply, if any, is written to SYSSOUTPUT. 
Side effects: 

None. 


abs q ROUTINE PRINT_REPLY : NOVALUE = 
4 le 
£3) ' Funtional description: 
re This routine is a local uci ity routine used by PARSE_REPLY 
t3e to output the operator reply the user (SYSSOUTPUT). 
1 t: 
38 npu 
98 None. 
80 Output 
utput: 
i pil 
one. 
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Routine value: 
None. 


! Start of PRINT_REPLY 


TEXT_DESC : BBLOCK COSCSK_S_BLNJ; ! String descriptor 


If the operator reply is greeter than 8 bytes, then 

it had some text to it. f this is the case, inform 

the user of the operator reply. Note that the 8 bytes 

of megsage overhead are not pringed. A temporary string 
at SFAO will not replace 
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descriptor must be used so t 
2 the any nonprinting ASCII characters with blanks. 
H iF gREPLY_10SBL2.0, 16,0] GTR SBYTEOFFSET (OPCSL_MS_TEXT) 
5 BEGIN 
5 TEXT_DESC COSCS$W_LENGTH) = REPLY IOSB (2,0,16,0] - SBYTEOFFSET (OPCSL_MS_TEXT); 
5 TEXT_DESC Dee ee OT yeed = DSC$K_DTYPE_T; 
54 TEXT_DESC [COSCS$B_CLASS = DSCSK CLASS 5 
54 TEXT_DESC “eo POINTER] = .REPLY_DESC 5SCSA_POINTER) + SBYTEOFFSET (OPCSL_MS_TEXT); 
54 SIGNAL (MOUNS_OPREPLY, 1, TEXT_DESC); 
ee END; 
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; 1545 2435 1 END; | ! End of PRINT REPLY 
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11 Bliss-32 V4.0- 
DISKSVMSMASTER: CMOUNT.SRCJASSIST.B32; 


VAX= 


r=cag 


alphabetic characters are translated to their upper-case equivalent. 


TRANS _TABLE 


used by the 


ppropriate 
he table is st up so that all lowe 


context 
' Used to parse operator reply 


' Descriptor for newline string 


! Start of PARSE_REPLY 


and then do the a 


1 


pawned 


thing, based on the operator's reply. 
r holding the operator's reply. 


q descriptor of the operator's reply. 
e 


: ADDRESSING_MODE (GENERAL); 


will parse the sepereees reply in the 
: DESCRIP (ZCHAR (13,10)); 


: NOVALUE = 


BUFFER = buf 
MOUNT data base. 


DESC = strin 
Implicit Outputs: 


Create the character translation table that will be 


This routine 
of the conditon that s 
REPLY 
REPLY 
The MOUNT data base may be updated as a result of the operator's reply. 
LIBSTPARSE 
GLOBAL = $GLOBALS$; 
CHSTRANSLATE function. 


OUTINE PARSE_REPLY 
Functional Description: 
None 
None 
Implicit Inputs: 
EXTERNAL ROUTINE 
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=742 Page 49 
:15 DISKSVMSMASTER: CMOUNT.SRCJASSIST.B32; (14) 
! Character pointer 


14 
ats fi 94:03:98 VAX-11 Bliss-32_ V4.0 
' 


TR : LONG, 
TATUS : LONG; 


i 
' Check the status of the mailbox read. If 
not successful, then abort the mount. 

i 


F_NOT .REPLY_I0SBC0,0,16,0] 
THEN 


BEGIN 
REPLY _PENDING = FALSE; 
shh aaa (MOUNS_MBXRDERR, 0, .REPLY_IOSBCL0,0,16,0]); 
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' Decide what to do based on the yin of eperetee reply. 

The OPC$_xxxxx status codes are longer than a word, so 
i they are masked off to word size befor comparing them 
' to the reply status. 


' 
] 
1 
4 
1 
' 
SELECTONEU .REPLY_BUFFERCOPCSWMS STATUS] OF 
(COPCS_NOPERATOR AND XX"OFFFF*)] — : BEGIN 


No operator was enabled to receive the request. 


REPLY_PENDING = FALSE; 
IF NOT INTERACTIVE_JOB () 


| Abort the mount, as no one is can service the request. 
. ABORT_MOUNT (MOUNS_BATCHNOOPR) 
BEGIN 
! If this is the first time through this code for this conditi 


for this device, then inform the user that no operator is en 
to receive the request. 


IF .OPERATOR_PRESENT 
THEN 


SIGNAL (MOUNS_NOOPR) ; 
OPERATOR_PRESENT = FALSE; 


i Re-issue the request, in the hope that an operator will even 
be enabled to receive and service the request. 


iF NOT (STATUS = S$SNDOPR (MSGBUF=OP_MSG_DESC, CHAN=.REPLY_CHAN 
ABORT_MOUNT (MOUNS_OPRSNDERR, 0, .STATUS); 

i If the request was sent, re-issue a read to the reply mailbo 

iF .STATUS NEQ OPC$_NOPERATOR 
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<> 


; 1661 0 POST READ TO MBX (); : 
: 166 1 2 REPLY_PENDING = TRUE; } 
3; 166 § é ; > 
; 1664 END; : 
: 199? 2 END; : 
; 1667 $56 C(OPCS_ROSTCMPLTE AND XX'OFFFF')] + BEGIN ; 
: 199) 228 The operator replied to our request. ; 
: 1671 560 PRINT REPLY (); : 
: 1628 261 PREVIOUS STATUS = =1 ; 
> 167 6 REPLY PENDING = FALSE; : 
: 167% 262 OPERATOR_PRESENT = TRUE; ; 
: 1978 322 If there is no operator reply text, .nen return. : 
; 1678 367 4 if (.REPLY_10SB (2,0,16,0] EQL SBYTEOFFSET (OPCS$L_MS_TEXT)) ; 
: 1680 2569 RETURN; ; 
; 1681 2570 : : 
; 1o8¢ 33re 3 Create a string descriptor for the operator reply text. . 
3 1684 ng : : TPARSE_BLOCK [TPASL_STRINGCNT] = .REPLY_I0SB (2,0,16,0) - S$BYTEOFF ; 
; 1685 sh8 3 TPARSE-BLOCK CTPASLISTRINGPTR] = .REPLY_DESC DSC$A_POINTER]+S$BYTE ; 
; 1687 576 ; i The font text may contain a NEWLINE character. If so, the inte ; 
> 1688 e577 3 ! is BEF RE the NEWLINE character. Note that the NEWLINE charact ; 
; lee sere ; two characters, a carriage-return followed by a Line-feed (<cr>< ; 
: 1691 ath 3 PTR = CHSFIND_SUB (.TPARSE_BLOCK CTPASL_STRINGCNT), ; 
: 1696 2581 3 ~ TPARSE_BLOCK CTPASL_STRINGPTRIJ, : 
> 169 338¢ »NEWLINE CDscew_LENGTHl : 
> 1694 258 ; “NEWLINE CDSCSA_POINTERS : 
HB BEY | 3 : 
: 169 58 i If a NEWLINE was found, set the string descriptor : 
3 1688 387 : so that the text BEFORE the NEWLINE ig parsed. : 
3 1760 389 iF NOT CHSFAIL (PTR) ; 
; 1708 291 _ _ TPARSE_BLOCK CTPASL_STRINGCNT] = .PTR - .TPARSE_BLOCK CTPASL_S : 
; 178 398 If there is no text before the NEWLINE, then there is no operato : 
; 1706 595 Lf TPARSE_BLOCK CTPASL_STRINGCNT) EQL 0 3 
3 1708 599 | RETURN; : 
: Ay 4 Convert the reply to upper case, so TPARSE will work correctly. : 
; 1218 601 CHSTRANSLATE (TRANS TABLE ; 
: 171 60 . TPARSE_BLOCK [TPASL_STRINGCNT], ; 
: Har eit TPARSE_BLOCK LTPASL_STRINGPTRJ, : 
: 17} $08 fPARSE_BLOCK CTPASL_STRINGCNT), ; 
: 1719 606 “ TPARSE BLOCK CTPASL~STRINGPTR : 
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1 
1 


Parse the operator response and perform whatever action is neces 
if NOT (STATUS = LIBSTPARSE (TPARSE_BLOCK, STATE_TABLE, KEY_TABLE) 
eu ABORT_MOUNT (.STATUS, 0, .MOUNT_STATUS); 


CCOPCS_RQSTPEND AND %X*OFFFF')) : BEGIN 


! The operator did a REPLY /PENDING The orginal 
' request is still active, so issue another read 
to the reply mailbox. 

PRINT_REPLY (); 

OPERATOR_PRESENT = TRUE; 

POST READ _T0_ABK (); 


CCOPCS_RQSTABORT AND &X‘OFFFF')J : BEGIN 
The operator has aborted the mount request. 


ALSE 
OPERATOR PRESENT = TRUE; 
ABORT MOUNT (MOUNS_OPRABORT) ; 


<>< 


e "OFFFF') 
(OPC$-ROSTDONE AND XX"OFFFF')4 : BEGIN 
i The user has canceled the requst, and 
the operator is acknowledging it. 


PREVIOUS STATUS = -1; 
REPLY PENDING = FALSE; 
OPERATOR, PRESENT = TRUE; 
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| 
; CCOPC$_RQSTCAN AND % 
| 
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RIPDPPIPIPIPINIMPONININIAPINININIPIPIPIPIPIPIPIPAININIAINIPIPOPOPINIAIPIPIPYIPINIPIPIPINIPIPIPIPIPIPIPIPUP NPN 


CCOPCS$_BLANKTAPE AND ZX‘OFFFF*) 
(OPCSTINITAPE AND 2X'OFFFF')S ~~: BEGIN 
1 i These sesseges may be sent by mistake. Notif 

At § the interested parties, and let MOUNT try again. 
765 4 PREVIOUS STATUS = -1; 
766 5 REPLY PENDING = FALSE; 
76 § OPERATOR_PRESENT = TRUE; 
768 INVALID COMMAND (); 
196 : ' 
oe ? COTHERWISE) : BEGIN 
rg 66¢ i This is an unknown response type 
774 6 ! Abort the mount and print the bad message. 
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14 
ASSIST 1heSep-1 4 04:04 VAX=11 TY 32 V 742 e 
yoo 001 1a-Sep- 1382 9}: 45: 08 DISKSVMSMASTER: chounT. SRCJASSIST.B32; 39 aa 
7E 04 0001C CLRL 3s = (SP) ; 
007281D¢ BF 0D IE PUSHL 99204368 : 
$8 ; r8 CALL #3, LIBSSTOP : 
46 AT 3 7 1$ MOVZWL REPLY BUFEER?2, R2 + 2513 
8061 8F 2 8] CMP R , #32865 + 2515 
7 if CLRL_ - REPLY_PENDING F 3519 
FBO3 £9 0 FB 4 CALLS ‘ , IRTERACTIVE_JOB + 2520 
007281FC BF pp PUSHL # $0280 + 2525 
00rd 1 0004 BRW 14$ : 
0D 98 A7 €9 00045 2S: BLBC OPERAT R_PRESENT, 3$ : 533 
0072A03B a DD 00049 PUSHL #7512123~ : 25 
000000006 00 1 FB O004F CALLS #1, LIBSSIGNAL ; 
: AZ 04 056 3$ CLRL OPERATOR PRESENT : 2536 
A7 pp 004 PUSHL REPLY_CHANNEL + 2541 
0180 C7? 9F 0005 PUSHAB OP_MSG DESC F 
000000006 00 g FB 006 CALLS We, SYSSSNDOPR : 
56 DO 0006 OVL * STATUS : 
0D 56 EB O006A LBS STATUS, 4$ : 
56 DD 0006D PUSHL TUS + 2543 
7E D4 0006 CLRL =(SP) ; 
007281EC 8F DD 00071 PUSHL #7504364 ; 
68 03 FB 90077 CALLS #3, ; 
00058061 8F 56 D1 OO07A 4$: CMPL STATUS +5 400565 + 2547 
60 13 00081 BEQL $ : 
FACB C9 00 FB 00083 CALLS #0, POST_READ_TO_MBX : 2550 
67 01 00 00088 MOVL ; REPLY_PENDING : 2551 
04 00088 RET : 2513 
8029 8F 52 B1 0008C 5$: CMPW R2. #32809 : 2556 
03 13 00091 BEQL 6$ ; 
0082 31 00093 BRW io : 
69 00 FB 00096 6$: CALLS PRINT_REPLY : 2560 
18 «A? 01 CE 00099 MNEGL PREVIOUS STATUS ; 361 
67 04 0009D CLAL REPLY NDIN ; 36¢ 
08 A7 01 DO 0009F MOVL OPERATOR _PRESENT : 256 
08 3E A7sO«BI OOS CMPW REPLY. 10SB+2, #8 : 2567 
3A 13 OOOA BEQL : 
oopc C7 36 OA? 36 SO0A9 MOVZWL oe 1osB+2, oUPARSE _BLOCK+8 : 2573 
ooDc = C7 08 C2 OOOAF SUBL TPARS : 
00EO C7 0000 ¢7 08 C1 00084 ADDL EPLY Mescse TPARSE_BLOCK+12 : 2574 
54 0000' cr § 9908¢ MOVZWL NE Pounce : 258 
00EO 07 Oopc ¢?7 0000" OF 4 00C1 MATCHC R4, @NEWLINE+4, TPARSE_BLOCK+8, : 258 
QTPARSE BLOCK+{2 : 
3 13 000cC BEQL $ : 
53 4 pd 00 cE MOVL R4, R : 
53 4 C2 00001 7S: SUBL2 R4, R ; 
68 1 D4 BEQL 8$° : 2589 
0opc C7 53 00E0 c7 ¢ D6 SUBL3 TPARSE_BLOCK+12, PTR, TPARSE_BLOCK+8 : 391 
50 ODC c7 D DE 8$: MOVL § TPARSEBLOCK+8, RO : 2595 
1 } : $: BNEG 10$ : 
0000" CF 00 00EO 7 50 $ £6 10$: MOVTC RO, @TPARSE BLOCK#12, #0, TRANS_TABLE, RO, -; 2606 
00E0 07 E @TPARSE BLOC : 
ov CF 9 F PUSHAB > 2611 
Vv CE 9F OOOF PUSHAB STATE TABLE : 
D4 C7 OF 000FB PUSHAB +PAREE. "BLOCK : 


H 14 
ASSIST 16=Sep-1984 01:04:04  VAX=11 Bliss-32 v4.0-742 Page 54 
yo2 001 12-88-1382 94206: 08 DISKSVMSMASTER=CMOUNT. SRCIJASSIST.B32:2° (14) 
000000006 00 3 FB OOOFF CALLS #3, LIBSTPARSE ; 
6 DO 001 MOVL TATU : 
1 6 FY ? BLBC STATUS, 11$ : 
14 AZ DD 00100 11$:  PUSHL = MOUNT_STATUS + 2613 
7E 04 119 CLRL. = = (SP) : 
36 DD 0011 PUSHL STATUS ; 
68 03 FB 00114 CALLS #3, LIBSSTOP : 
04 00117 RET F 3513 
8021 8F 52 8100118 12$: CMPW Re #32801 + 2616 
0D 12 00110 BNEQ 138 : 
69 0 FB 4 F CALLS #0, PRINT_REPLY : 26 2 
08 A7 1 00 00122 MOVL #1. OPERATOR PRESENT : 26 
FACB C9 0 FB 00126 CALLS #0, POST_READ_TO_MBX + 2626 
04 00128 RET : 2513 
B01C 8F 52 B1 4 C13$: CMPW Re #32796 + 2627 
13 12 00131 BNEQ 15$ : 
69 00 FB 00133 CALLS #0, PRINT_REPLY + 2631 
67 04 001 6 CLRL -REPLY_PENDBING ; 363¢ 
08 a7 4 DO 091 MOV. #1, OPERATOR_PRESENT + 263 
007281F4 8F DD 001 PUSHL #7504372 + 2634 
68 01 FB 00142 14$: CALLS #1, LIB$STOP : 
04 0014 RET : 2513 
8084 8F 52 B1 00146 15$:  CMPW  R2, #32900 + 2637 
g 13 00148 BEQL 46s«+16$ : 
81DB oS 2 Bi 0140 CMPW Re #33263 + 2638 
0B 12 00152 BNEQ ss 1 F 
18 AT 01 CE 00154 16$:  MNEGL #1, PREVIOUS_STATUS + 2643 
67 D4 00158 CLRL REPLY_PENDING ; 644 
08 A7 01 Bd 01 A HOVL #1, OPERATOR_PRESENT : 2643 
8103s BF 52 B1 001 3F 17$:  CMPW R2 #33235 + 2649 
07 13 00164 BEQL 4 Es«d18$ ; 
B1E3 BF 52 Bi 00166 CMPW 3S séR2, #33251 + 2648 
10 12 00168 BNEQ : 
18 A? 01 CE 9016p 18$:  MNEGL #1, PREVIOUS STATUS > 2654 
67 04 00171 CLRL. REPLY PENDING : 2655 
08 A? 01 00 173 MOVL #1, OPERATOR PRESENT : 2656 
0000v CF 00 re Bier CALLS #0, INVALID_COMMAND 3 93f 
67 0400170 19$:  CLRL  REPLY_PENDING : 268 
08 A? 01 00 O17F MOV #1, OPERATOR PRESENT > 2666 
7E 0000 C7 1A : 0183 ADDL3 #26, REPLY_DESC+4, -(SP) : 2674 
E oocc C7 ‘ 91 9 MOVZWL REPLY DESC> -(SP) : 
6E AC 18 SUBL2. #26, TSP : 
48 A? DD 0019 PUSHL REPLY_BUFFER+4 : 
7E 46 AZ 3C 00194 MOVZWL REPLY-BUFFER+2, -(SP) : 
7E 44 A? 9A 00198 MOVZBL REPLY“BUFFER, -(SP) ; 
5 oD 0019C¢ PUSHL # : 
007281E4  8F DD 0019E PUSHL #7504356 ; 
68 7 FB OO1AG CALLS #7, LIBSSTOP : 
04 001A7 RET : 2678 


3; Routine Size: 424 bytes, Routine Base: S$CODE$ + 0718 


ASSIST 14 Se 

-3e 
vOe-001 14-Se 
ROUTINE SAVE_DEVICE = 


lee 
Functional description: 


This is a TPARSE action routine that is called 
to create a string descriptor for the token 
just parsed. The token is a device name. 


1984 01:04:04 VAX=11 Bliss-32_V4.0-742 P 5 
7198¢ Meets DI SKSVMSMASTERSCMOUNT SRCIASSIST.B32;3°" (185 


DOS 
wr 


Input: 


PAEAEAAAAAAAO 
(G9 69 C9 0D Co C9 CO COCD OD 


WONOUSWIN—O”O 


690 None. 
Output: 


None. 


SERN TSSaTeoe 


oO 
co 


Implicit Inputs: 
TPARSE_BLOCK = data structure defining TPARSE context. 
Implicit outputs: 


3 


[J 


DWONAUNE VN $$ O OONAUES WN (OO OODNOUFS UNO 


DEVICE_DESC = string descriptor of device name. 
Routine Value: 


1 If the device name Length is within tolerance, 
0 if not. 


Sooooococoo 


So 


BEGIN ! Start of SAVE_DEVICE 


EXTERNAL 


PIPIPIPIPIPIPINIRYD et et et et 2 ot ot 
ONAUSWN “OO ONAUSWN—O 


DEVICE_DESC : BBLOCK, ! Device string descriptor 
TPARSE BLOCK : BBLOCK; ! TPARSE context data structure 


OF gj, PARES BLOCKE TRAM, FOKENCET GTR MAX_DEV_LENGTH ! Check for device name too long 


G9. Gd 09 Co Cd OD G9 G9 CD Od CD CD OD OD Od 09 C9 C9 Od OD OD G9 Cd OD CD CD 09 09 09 09 C909 ODOO III 


0 ! Return failure 
ELSE 
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oo 
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ww 
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oo 
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Ono 
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vr 
om 
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2a 
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m= 
Duy 
p=) 
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- TPARSE_BLOCKCTPASL_TOKENCNT); 
of w . TPARSE_BLOCKLTPASL_TOKENPTRJ; 
1 ' Return success 


Be Se Ge Oe Ge Be Ge Gs SF Gs FH Ss Be BH Se SH Ss Se FHSS Ss Ge Se FF Ge Ss Ge Fs Ge Se Ge SH Se Se Se Ss Se Ss Se Se Se See Se Se SF Ss Se Se Sees 
el ce ee ee ee ee ee ee ee ee ee ee ee ee ce De ed ed ed ed ed ed ed 
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PANDA INPIPININIPINPINIDMPI|I IIA dn i i i dd ad 2d od od od 
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SSSONOUE UN —OD 


tr 


END; ! End of SAVE_DEVICE 


0000 00000 SAVE_DEVICE: 
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» WORD Save no : 79 
3F 00006 b1 00002 CMPL” SPARSE BLOCK #16, #63 : 3878 

BLEG = o1$ : 

Be a ; 
00006 cf 90006 CE BO ODOC 18: MOV PARSE BLOCK+16, DEVICE _DESC : 2726 
00006 CF 00006 CF DO 0001 MOVL  TPARSETBLOCK#20, DEVICE-DESC+4 ? 5755 
50 01 DO OOOIA MOVE o#1, ROT : $753 
04 0001D RET : $759 


; Routine Size: 30 bytes, Routine Base: $CODES + 08C3 


<> 


K 14 
von-001 1exgeen18Be 93:08 eS mHAS TER CMOUNT. SecaAssiIsT.e32-3°" (1a) 


DEVICE_ INDEX : the current device index into the DEVICE_STRING vector 
Implict output: 

The mount data base may be modified. 
Routine value: 
See the description of SCOPY_INFO. 


; q 0 ROUTINE DO_SUBSTITUTE = 
5 7 ; 144 
$ f ? Funtional desctiption: , 
B® 735 i This routine is merely a shell so that SCOPY_INFO may be 
9 7 § : called during the TPARSE operation to copy the new device 
a9 4 } name to the mount data base. 
2§ 7 § i Note that the previous device must be deallocated before 
rt my } we copy the new device name into the data base. 
5 742 i Input: 
: wai 
5 744 ! None. 
58 745 ! 
59 ms ! Output: 
74 ! 
748 ! None. 
749 ! 
: Implict input: 
DEVICE_DESC : a device name descriptor 
1 
i] 
i 
1 
i 


BEGIN ! Start of DO_SUBSTITUE 
EXTERNAL 


SIN tseeesoreees 


SAAAAEAAAAAOSCMVIVIVVIVIVIVIVIV 


DEVICE_INDEX : LONG, 
DEVICE _DESC : BBLOCK; 
EXTERNAL ROUTINE 


SDALLOC_DEVS$SU : ADDRESSING_MODE (GENERAL), ! Address of the transfer vector 
SCOPY_IRFOSU : ADDRESSING_MODE (GENERAL); ! Address of the transfer vector 


SDALLOC_DEVS$U (1); ' Deallocate old device 
SCOPY_IRFOSU (. DEVICE_INDEX, DEVICE_DESC) ! Copy string and return status 


END; ! End of DO_SUBSTITUTE 


NNN 
FUN “OOO NOUEWN OC OONOUNEWN HO 


SRESSEEE 


Be Se Se Fe Se Ge Ge Se Se Ge Ge Se Se Se Se Ge Fe Ge Ge Ge Ge Ge Se oe Ge FF Se Se Se Ss Se Se Se Se Se Sees Ge Fe Se Ge Ge See Se Se seas 
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SSS SSS SSNS SSS 

a 

PIP IPIMIPIPIPIPDIININ IIIA a ast at a nk tk ak kt tk td tt 8 


oo 
8 
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.EXTRN SCOPY_INFOSU 
0000 00000 DO_ SUBSTITUTE: 
gt DD 00002 PUSHL 


hi ; 2730 
Save nothing $730 
000000006 00 : 


1 FB 00004 CALLS #1, SDALLOC_DEVSS$U 


vO2 2801 1$-%¢ een 1RBe Fh ke 8G HA eal e tee beer te caassist.03263* C105 
SSE fF $5 S8tnp USM (UICE-BES, kas 

000000006 00 ie FB 83 5 CALLS BEV ites PY_INFOSU ; 
04 OOO1A RE + 2777 


; Routine Size: 27 bytes, Routine Base: S$CODE$ + 08E1 
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yon-801 22808-1382 2: 3:98 DISKSVMSMASTER: CMOUNT . SRCJASSIST.B32; 2° a} 
ROUTINE INVALID COMMAND = 


=" 
oo 
Wr 


144 
Functional Description: 


This routine is the TPARSE action routine that implements 

invalid command handling and reporting. If we get here, 

it means that TPARSE has detected a bogus operator reply. 

The user is notified that i operator response eee i fees 
nu 


SSN 


OO 0000009 Co CO CD CD CD CDOO ~~) 


WRC OONO NSW —O0Oo 


B3SSSSSSSSSSSSSS 


: 1 

: 1 1 

3 1 1 

. > 1 

3 1 1! 

3 1 1! 

3 1 8. 

iy 1 i 

3 1 1! and the mount operation con es. If the condition tha 

3 1 1! caused the initial error still exists, then MOUNT will issue 
3 1 1! another request to i operator. The reason the operator is 
3 1 1! not notified of his mistake is that there is no way to target 
$ : : a message to specific operator. 

3 1 793 1°! Input: 

3; 7 794 1! 

3 1 795 1! None. 

3; 1910 796 1! 

: 1911 797 1 ! Output: 

3 ba 798 1! 

3: 191 799 1! None. 

3 1914 800 1! 

3 1915 801 1 ! Implicit Inputs: 

3 1916 802 1! 

: 1917 a 2S None. 

3 1918 04 1! 

3 1919 805 1 ! Implicit Outputs: 

3; 1920 B06 1! 

3 3 1 t4 ! : The user is informed of the operator's mistake. 

3 19 § B08 1 ! Routine value: 

3: 1924 810 1! 

3: 1925 ai 1! Always 1. 

3 19 $ \§ 1 !e- 

3 19 813 1 

3 1368 Bie BEGIN ! Start of INVALID_COMMAND 
5 1386 HE SIGNAL (MOUNS$_INVLDRESP) ; 

3 1982 818 1 

3 193 819 END; ! End of INVALID_COMMAND 


0000 00000 INVALID_COMMAND: 
- WORD 


Save _ nothing ; 2778 
ooooo0ce 09 Oras FEB BONO CASE #1” CIBSSIGNAL fetes 
98 01 00 000F HOVE #1: Kd : 2819 


Routine Size: 19 bytes, Routine Base: S$CODE$S + O8FC 
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ASSIST 16-Sep-1984 01:04: VAX-11 Bliss-32 V4.0-742 Page 60 
yoo 001 1 30071382 94:06:08 DISKSVMSMASTER: CMOUNT. SRCJASSIST.B32:2° 85 
: 13 5 } GLOBAL ROUTINE SCOPY_INFO (DEV_INDEX, DEV_DESC) = 
: 19 1 14s 
: 1888 by Scat tenis are Peet's bor 
3 ! $s routine provides a secure way of copyin evice name 
3; 1941 § 1! ate one from the caller (in user ande) to’ MOU t's protected 
3 1306 1! data base (in EXEC mode). 
3; 194 8 1! 
BS BY bases 
; 1946 ee DEV_INDEX : A number from 0 to .DEVICE. COUNT 
: ot § ; DEV_DESC : Address of a device name descriptor 
3 1949 834 1 | Output 
3; 1950 4 . 2 
; 132) $ ! : None. 
; 1988 e3e : Implicit input: 
> 1955 840 1 DEVICE_STRING : A vector of device name descriptors 
: 1938 oe ; DEVICE_COUNT : The number of devices specified by the user. 
: 1958 BS 1! Implicit output: 
3; 1959 844 1! 
3; 1960 845 1! The DEVICE_STRING vector may be modified. 
3: 1961 846 1! 
; 1966 ote : Routine value: 
3 1964 849 1 SS$_NORMAL : Normal successful completion 
3; 1965 850 1! SS$_ACCVIO : The specified device name cannot be read. 
3 1308 851 1! S$S$_BADPARAM : The specified device name has a zero length, 
3 196 o3¢ 1! . or is longer than LOGSC_NAMLENGTH bytes, or 
3; 1968 855 1! DEV_INDEX is not a reasonable value. 
3 1969 854 1 !-- 
3; 1970 B22 1 
3 1971 2$ BEGIN ! Start of SCOPY_INFO 
: 1998 He EXTERNAL 
3 197% 859 DEVICE_COUNT =: LONG ' # of drives 
3 1979 860 DEVICESTRING : VECTOR VOLATILE; i Descriptor list 
; 1979 Bee BUILTIN 
: 1378 ? PROBER; ! Probe for read access 
: 1980 5 2 LOCAL 
: H+} rs] DEV_NAME : BBLOCK COSC$K_S_BLNJ; ! Local descriptor 
; 1988 Bsa ! 
3 1Oee B70 : Make sure DEV_INDEX is within a reasonable range. 
; 1386 4 if (.DEV_INDEX LSS 0) OR (.DEV_INDEX GTR (.DEVICE_COUNT - 1)) 
; 1388 x RETURN (SS$_BADPARAM) ; 
i. BS 
: 1991 76 2! Probe the actual descriptor for read access. 


af 


Liss-32 V4.0-742 Page 61 
MASTER: CMOUNT. SRCIASSIST.B32:2 (18) 


3; 1 77 ! 

; 1398 4 IF NOT PROBER (2REF (0), SREF (DSCSK_S_BLN), .DEV_DESC) 

: 1994 7 THEN 

3; 1995 80 RETURN (SS$_ACCVIO); 

: 1996 1 

: 1997 8 § ! 

; 1998 8 : Copy the descriptor to internal storage and then probe the 
: 1999 884 ! device name for read access, and make sure that the device 
3 sone +H name length is reasonable. 

; Oe Hd CHSMOVE (DSCSK_S_BLN, .DEV_DESC, DEV_NAME); 

; 200 B88 IF (.DEV_NAME COSCS$W_LENGTA) LEG 0) 

: 2004 OR (.DEV_NAME CDSCSW_LENGTHJ GTR 63) 

; 2005 890 THEN 

3; 2006 891 RETURN (SS$_BADPARAM) ; 

; 2007 894 IF NOT PROBER (ZREF (0), DEV_NAME CDSC$W.LENGTH], .DEV_NAME CDSC$A_POINTER)) 
>; 2008 494 THEN 

:; 2009 894 RETURN (SS$_ACCVIO); 

3; 2010 $eo2 

: 2011 896 ! 

3 seg 2897 ! Copy the new device name to the mount data base, 

; sola 4943 1 and update the descriptor in DEVICE_STRING. 

3; 2015 2900 DEVICE STRING C(.DEV_INDEX*2)] = .DEV_NAME COSC$W_LENGTHI; 

; 2016 2901 CHSMOVE (.DEV_NAME BSC$W_LENGTH) 

3 2017 908 -DEV-NAME CDSC$A-POINTERS 

: 2018 290 -DEVICE_STRING CT.DEV_INDEX*2) +1) 

3; 2019 904 2 Fi 

$ soso 2905 § 

; 2021 2906 SS$_NORMAL 

; soe 2907 2 

; 202 2908 1 END; ° ! End of SCOPY_INFO 


-EXTRN DEVICE_COUNT, DEVICE_STRING 


007¢ 00000 .ENTRY $COPY_INFO, Save R2,R3,R4,R5,R6 ; 2820 
SE 08 Cé 00002 SUBL2 ° ; 
56 04 AC DO 0000 MOVL  DEV_INDEX, R6 : 2871 
1 19 00009 BLSS ; 
50 00006 CF 1 C5 00008 SUBL3 #1, DEVICE_COUNT, RO : 
50 6 D1 0001 CMPL = RO, RR ; 
16 14 00014 BGTR 1S : 
08 Bc 08 00 0 16 PROBER #0, #8, @DEV_DESC : 2878 
1A 13 0001B BEQL 3$ : 
6E 08 BC 08 1 OVC3 #8, @DEV_DESC, DEV_NAME : 2887 
1 E 3 MOVZWL DEV_NANE, RI : 2888 
LEQ ; 
. LSE GREN, Bl ss - 
50 14 6 C 18: ROVL #20, RO : 2891 
04 BE 6E i : 28: PROBER #0, DEV_NAME. @DEV_NAME+4 2892 
50 cB 38: MOVL #12, RO 2894 
4 0003A RET ; 


; Routine Size: 84 bytes, Routine Base: SCODE$ + 090F 


15 
if: px }oae 93:88:98 ere ee : 
o ooooscrép 4 , 6 ? ” move 40 Res Re STRINGCR ; 
5 oooccr2o p 43 MOVL_ DEVICE AL tertaty ; 
60 04 33 51 004 MOVCS RI, @DEV_NAME+4, ; 
0 01 D0 00050 MOVL #1. RO : 2908 


: 2900 
0) : é 

RO + 2903 
(RO) : 


D 15 
ASSIST 16-Sep-1984 01:04:04 VAX-11 Bliss-32_V4.0-742 P 3 
voe-001 10-388 -1 382 Miagits DISKSVMSMASTER: CMOUNT .SRCIASSIST.832;2°" (19) 


i Initialize three important variables referenced in VMOUNT. This 
' must be done here as they are zeroed only once per SMOUNT call, 
: and must be written while im EXEC mode. 


DEVICE_INDEX = 0; 
DATA_BASE_READY = 0; 
STORED_CONTEXT = 0; 


Pttetitatd 


“ 


i Set the page protection of this module's data to allow user 
! mode read/write access. This must be done here, in EXEC mode, since 
! this image is INSTALLed as a protected shareable image, which has 
! the effect of settin the protection to be USER read, EXEC write. 
! Note that the data sits in a special PSECT, to avoid changing | 
: the page protection on adjacent pages. 
$ 
| 
| 


: 8 5 +4 } GLOBAL ROUTINE SCHANGE_PROT = 

> 20 ; 911 1 S44 

; 8 8 aig } Functional description: 

: 2030 914 1/3 This routine will change the page protection of this module's 

3 8 1 312 ! OWN storage so that it may be written to in USER mode. 

: 9 § 317 Input: 

; 9 5 319 i None. 

: 9 : 3 1 ! Output: 

; 878 2 § } None. 

: 041 3 5 Implicit input: 

: $08 9 7 1 i 1) The current access mode is EXEC or KERNEL. 

; 2044 928 1! 2) VA_LRANGE is a vector of two longword elements, containing the starting 
3 Spee $80 : and ending virtual addresses of the range of pages to work on. 
; 2047 331 | Implicit output: 

: si 338 ! | The pages are made USER readable. 

; 33 2939 | Routine value: 

; a 3H s Whatever status value is returned by $SETPRT. 

; 096 940 2 BEGIN ! Start of SCHANGE_PROT 
: 2058 3348 EXTERNAL 

3 2059 294 DEVICE INDEX, ! Index into PHYS_NAME bblock 
; 2060 2944 2 DATA_BASE_READY, ' Boolean 

: 2061 2945 STORED_CORTEXT; ! Bit vector 

3 oee $308 

3 94 

3 2948 

3 $oen 

: 53 

; 95 

sore 

: 4 

3 

; 8 

; : 


ono Pre ANNAN 
AOOOOOAUIVIVIUIUIMNM 
UEWN—O0O 
BRPIPOPOFOPIPUPIPIPUPONPOR 


Seessesesees 
—OOBVNOuslwn—o 


SETPRT (INADR=VA_RANGE, PROT=PRT$C_UW) 


; Routine Size: 31 bytes, Routine Base: S$CODE$ + 0963 


ASSIST 18-50 -Sep-1984 VAX-11 Bliss-32_ V4.0-742 4 B 
Vv 13h Hats 7 9}: Oe: % DISK AK SVMEA TER: CMOUNT. SRCJASSIST.B32; gee 3} Vv 
; 208 ; 
: soRs $308 ; END; ! End of SCHANGE_PROT : 
.EXTRN DATA_BASE_READY : 

-EXTRN STORED_CONTEXT, SYSSSETPRT : 

0000 000 sENTRY SCHANGE_PROT, Save nothin : 2909 . 

90006 CF D4 a002 CLRL DEVICE INDEX’ : 5953 

0006 CF D4 906 CLRL DATA BASE REA + 2954 F 

00006 CF D4 00 A CLRL  STORED_CORTEXT + 2955 : 

re ASN BRR a st ; 2865) | 

0000" CF 9F 00013 PUSHAB RANGE : ; 

000000006 00 0S FB 00017 CALLS Wot SYS$SETPRT : : 

04 OO01E RET : 2967 : 


— eee 


F 15 
ASSIST 16-Sep-1984 01:04:04 VAX-11 Bliss-32_V4.0-742 P 5 
voe-001 1038871 3be ERE: DL SKSVMSMASTERS MOUNT .SRCJASSIST.B32;3%" (20) 


<@ 


; 08) $69 ! GLOBAL ROUTINE SDALLOC_DEVS (SINGLE_DEVICE) = : 
: 08 390 lee : 
3 oes 44 ! Functional description: ; 
: 2090 398 1 i This routine will attenpt to dealocate all devices that were : 
: 83) are ! specified by the user that were not previously allocated. : 
ign Bh pie : 
3 2095 978 1! SINGLE_DEVICE : a lLongword boolean to control whether all , 
; 20 979 1! drives or just a single one is to be deallocated. : 
3; 209 980 1! If the latter, use DEVICE INDEX to select the : 
3 B38 +} : } drive name from the PHYS_RAME vector. ; 
: 100 3 § Output: : 
Ae ee Set ; 
: 138 HA : Implicit input: : 
: 2106 989 1: CLEANUP_ALLOC =: a bit vector where each bit represents an : 
: 2107 990 1! an entry in PHYS_NAME that was not previously ‘ 
; 2108 991 1! allocated by the user. ’ 
3; 2109 992 1! DEVICE_INDEX : index into PHYS_NAME vector : 
: 2110 9935 1! PHYS_NAME : a vector of device name descriptors for all : 
3 2111 994 1! evices specified y the user. ‘ 
3 11g we FF PHYS_COUNT : a high-water mark that indicates the number : 
3 BF 44 : of devices actually used in the mount. : 
; 115 998 | ! Implicit output: : 
; BY 4 44 } ALL devices not mounted or not previously allocated are deallocated. “ 
: si18 008 Routine value: ; 
: Ziel 004 1! SS$_NORMAL : Normal successful completion 3 
: 3188 i 
; 124 007 2 BEGIN ! Start of SDALLOC_DEVS 3 
: 136 009 2 EXTERNAL : 
3 2127 010 CLEANUP_ALLOC : BITVECTOR VOLATILE, ' cleanup bit vector 3 
: 2128 Bi DEV_ALLOCATED : BITVECTOR VOLATILE, ! device allready allocated : 
: 2129 \§ DEV_ACQUIRED : BITVECTOR VOLATILE, ' device is interlocked 3 
3 21 01 DEVICE_ INDEX LONG, ' current device 3 
3: 2131 014 PHYS_ COUNT : LONG ' count of physical devices 3 
: 21 ¢ 015 PHYS _NAME : VECTOR VOLATILE, ' device descriptor arcey 3 
3; 21 BIS MOUNT_OPTIONS : BITVECTOR, ! mount options and modifiers : 
: 21 01 STOREB_CONTEXT : BITVECTOR; ! special mount context : 
tet : 
> 21 0 2 IF .SINGLE_DEVICE : 
3 : 1 THEN | : 
: 2140 0 : i Deallocate a specific device. This is used to deallocate a : 
3: 2141 024 ! previously allocated device when the operator instructs us to 3 


18-Sep-1984 Moe ee PRT SUMGHASTERSEMOUNT. SACIASSIST.B32~3°" (26% 


1 14-Sep-1 245: DL SKSVMENAS 
; 108 025 substitute another device in its place. : 
> 21464 - BEGIN ; 
3 2145 8 IF .CLEANUP_ALLOCCL.DEVICE_INDEX) : 
: 510 CEE fg ; 
+ 2148 031 4 SDALL Oc (DEVNan = PHYS NAMEC DEV ce INDEX*2]); ; 
: 3149 Ose 4 ALLOCE.DEVICETINDEX] = ; 
> 2151 034 DEV ER ane C.DEVICE_INDEX = 0; : 
: 128 035 DEV. ACQUIREDL.SEVJCE_INDEX] = 0; 3 
; 13? 9 $ HYS_COUNT = “DEVICE INDEX; ; 
> 2155 0 : ELSE : 
3 BR pes 7 
: 2158 041 Deallocate every device Listed in the PHYS olawe device name descriptor ; 
3; 2159 s006 i array, that was not previously allocated by the user. If the device is ; 
3; 2160 04 i mounted, it will not be deallocated {this check is done in the $DALLOC : 
3 16) fone system service). : 
; 188 046 INCR I FROM 0 TO .PHYS_COUNT=-1 DO : 
: 198 ot 1g LEAP. ALLOCE7I) : 
> 2166 049 4 BEGIN F 
3 2167 050 4 SDALLOC(DEVNAM = _PHYS_NAMEC.1*2]); 3 
3 2168 051 4 DEV LALLOCATEDC. J = 07 ; 
: 2169 038 4 DEV-ACQUIREDC.1 ; 
: 2170 053 4 CLEANUP ALLOCE. 1) = 6: ; 
We BE oe 7 
> 217 305 3 ‘ ; 
io : 
: $138 3059 1 END; ! End of SDALLOC_DEVS 3 
.EXTRN CLEANUP_ALLOC, DEV_ALLOCATED ; 
-EXTRN DEV_ACQOIRED, PHYS_COUNT 3 
-EXTRN SYSSDALLOC ; 
: 5 cA OZE 99909 SENTRY SDALLOC DEVS, Save R2,R3,R4,R5,RG ; 2968 3 
28 oooopoone 60 9E 8009 MOVAB ith CLoc, R : : 
34 0000G CF 3 90 MOVAB CLEANUP_ALLOC, R4 : : 
C 04 ac CE 1 BLBC SINGLE_BEVICE, ; 3020 3 
12 64 $6 E1 91 BBC DEVICE-INDEX, CLEANUP_ALLOC, 1$ ; 3028 3 
F Dé 1B CLRL -(SP) ~ ; 3031 3 
50 66 0 8 BOs ASHL #1, oe PEN ICE JNDEX. RO 3 $ 
OOOOGCF40 ODF 1 PUSHAL PHYS NAMELR 3 PF: 
0 FB 0 § CALLS #2, o Ne BALLOC : 3 
66 €E BBCC DEVICE_INDEX, c EANUP_ALLOC, 1$ : 3032 $ 
D ; 30 3 
E cc 3 : 
4 3 5 F 
i) 3 : 
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v04-001 
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119 bytes, Routine Base: S$CODES + 0982 


3; Routine Size: 


15 
ASSIST 1-Se =1984 01:04: VAX=11 Bliss-32_V4.0-742 P 68 
V 2801 102 388-1 880 ? esi38 DISKSVMSMASTER: MOUNT .SRCJASSIST.B32;2> (21) 


0000 00000 EXIT_HANDLER: 
WORD 


: i Oe} } ROUTINE EXIT_HANDLER : NOVALUE = : 
; 180 g 1 '+4 : 
: 13) 7 : } Fucntional Description: : 
: 188 065 1! This routine is called by the OS on exit (for whatever reason) from ; 
: 130 bee : the MOUNT facility. This routine will clean up any mess left by MOUNT. ; 
5 2186 068 1! Input Parameters: : 
3; 2187 069 1! 3 
: $189 07) 1 | Implicit Input 
3 ' Im n : : 
; 150 Ore 1! : pit. ~ 3 
3: 2191 0735 1! ; 
3 136 074 1 ! Output Parameters: F 
: 219 075 1! none $ 
3 2194 B78 1! $ 
3; 2195 077 1°! Implicit Outputs: F 
3 2196 $058 es none $ 
3: 2197 079 1! ; 
3; 2198 3080 1 !-- 3 
3 2199 $003 1 3 
: soe bee BEGIN ! Start of EXIT_HANDLER ; 
; 2508 3082 EXTERNAL ROUTINE : 
: $$o7 sone SDALLOC_DEVS$SU : ADDRESSING_MODE (GENERAL); ! Address of transfer vector : 
> 2205 3087 ' | ; 
3; 2206 088 ! Attempt to deallocate devices that are not mounted and : 
: sor $059 were not previously allocated. : 
3 2209 3091 SDALLOC_DEVS$U (0); ! Attempt to deallocate devices : 
: gett 309 IF_.REPLY_PENDING : 
; sig 094 THEN 3 
3: 221 095 ! 3 
; $sie $039 } Cancel any outstanding operator requests. ; 
: 36 3098 CANCEL_REQUEST (REQUEST_NOT_SATISFIED); 3 
: 218 $100 2 SSETSFM (ENBFLG = .SS_FAIL_MODE); ; 
; 2220 3102 1 END; ! End of EXIT_HANDLER ; 
. Save nothing : 3060 ; 
7E D4 0005 CLRL =(SP) : 3091 3 
000000006 00 01 FB 04 CALLS #1, $DALLOC_DEVS$U 3 3 
07 0000' cr E BLBC = REPLY_PENDING, 1$ : 309 
E D4 1 CLRL -(SP) 3 9 

FOAA «CF 01 FB 1 CALLS #1, CANCEL_REQUEST 3 
0000° ff 0D 17 1$: PUSHL SS_FAIL_MOBE ; 3100 

000000006 00 1 FB 0001B CALLS #17 SYSSSETSFM 3 


vO2=801 


3; Routine Size: 


35 bytes, 


Routine Base: 


04 sat 
SCODES + O9F9 


Soc198s 14:08: 


RET 
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; 3102 
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K 15 
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yon 801 eaeen TBs P30: 9e Weed ehde teas chootr sacaassisr.e3203%* «25s 


e TPARSE tables are here because they mangle 
T a liels ten. ’ 


] 
: Define the TPARSE grammar of the possible operator replies. 


(TPAS_SYMBOL) 


SSTATE (, 
(*;* TPAS 
CTPAS_LAMBDA, TPAS 


MIPITONOMUPONONY 


vv0vD 


v 

!' Text. The remainder of the operator response is treated 

' as a comment, and has no effect on the mount. If there is 

' a comment, at least one blank must separate it from the 

: previous section of the operator response. 

SSTATE (TEXT, 
(TPAS_BLANK, mone EXT). 
(TPAS_EOS, TPAS_EXIT) 


; 1 1 

5 4 1 i 1 

: $55¢ 108 

: $088 17 

3 8 1 3 1 

; 9 110 1! 

s : ae \ SINIT_STATE (STATE_TABLE ,KEY_TABLE); 

3 ¢ 118 1! 

: 114 1! Initial state 

3 i}; ao 

H 5 P 3116 1 S$STATE (START 

3 6 P3117 1 ((SUBSTITUTE_COMMAND) , TPAS_EXIT, DO_SUBSTITUTE) 
Hy 7 P 118 : (TPAS_LAMBDA, TPAS_EXIT, INVALID_COMMAND) 
: eee 

3 st) ; § } : SUBSTITUTE command. ‘SUBSTITUTE'<TPA$_BLANK><DEVICE><TEXT> 
3 rk P 3124 1 S$STATE (SUBSTITUTE_COMMAND, 

: 44 P3125 1 ("SUBSTITUTE") 

: 45 126 1 ds 

3 2246 127 1 

3 ste 128 1 !$STATE ( 

: 2248 129 1/3 (fPAS_BLANK) 

3 2249 130 1! 

3 $20 131 «1 

3 51 P 31 ¢ 1 SSTATE (¢ 

; $26 P 31 1 ({DEVICE), TPAS_EXIT, SAVE _DEVICE) 
3; 225 134 «(1 ); 

3 2254 135 1 

: 55 136 1 !SSTATE ¢ 

3 2256 137 1/3 (CTEXT), TPAS_EXIT) 

3 2257 138 1! ); 

3 $28 139 1 

3 59 140 1! 

3 vs 12 : Device name. It may be a device spec or a logical name string. 
3 $6 P 314 1 SSTATE (DEVICE, 

; 6 P 314 1 

3 2264 145 1 

Beg HS 

: es 14 1 

: 2268 149 1 

; 44 150 1 

3 0 151 1 

: 71 152 1 

: Le: 1 1 

: 7 1 1 

: 74 155 1 

3: 2275 1 1 

3g ¢ 6 1 1 

: 7 1 1 

3; 2278 1 1 


ROP PORQRIPINIPIPTPINININIMNINYININD 
NoPofhorunonononororons 


vuv0vD 


Xl 
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: 160 1 ); 

; a0 161 1 

: p 31 ¢ 1 SSTATE (MORE_TEXT, 

: P 3163 1 (TPAS-ANY, MORE_TEXT), 
: P 164 (TPAS “EOS, TPAS EXIT) 
; Be 166 1 END , 

> 2286 183 0 ELUDOM 


-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
00000 ; TPASKEYSTO 


U. LK 0 
45 54 55 54 49 54 53 42 55 §3 00000 : TPASKEYST 
U.12: | .ASCII \SUBSTITUTE\ : 
FF QOQ0A BYTE -1 3 
FF QO00B ; TPASKEYFILL 
U.14: .BYTE <1 3 


.PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 STATE_TABLE:: 
BLKB 


00000 START: .BLKB 0 
99F8 00000 ; TPASTYPE 


U.2: .WOR -26120 3 
0000* 00002 ; TPASSUBEXP 
U.4: -WO <<U.3-U.4>-2> ; 
00000000* 00004 ;TPASACTION 
0.5: -LONG <<DO_SUBSTITUTE-U.5>=-4> : 
FFFF 00008 ; TPASTARGET 
0.6: «WORD -1 3 
95F6 OOO0A ; TPASTYPE 
0.7: «WORD -27146 : 
00000000* 0000C ; TPASACTION 
0.8: -LONG <<INVALID_COMMAND-U.8>-4> : 
FFFF 00010 ; TPASTARGET 
0.9: WORD -1 : 
00012 "3 BSTITUTE COMMAND 
U. BLRB 0 
0500 00012 : TPASTYPE 
U.13: -WORD 1280 : 
9DF8 00014 ; TPASTYPE 
U.15: .WORD -25096 : 
0000* 00016 ; TPASSUBEXP 
00000000* 00018 : TPASACTION 
U.18: eLONG <<SAVE_DEVICE-U.18>-4> : 
FFFF QOO1C ; TPASTARGET 
U.19: -WORD -1 3 
OOO1E ; goeyece ——, 
O5F1 OOOTE vTPASTYPE 
U. 20: -WORD 1521 : 
103A 00020 ; TPASTYPE ‘ 


Bytes 
1 


2 


Library Statistics 


PSECT SUMMARY 


ns 


FFFF 
15F6 
FFFF 


11F2 
0000+ 
15F7 
FFFF 


11ED 
0000* 
15F7 
FFFF 


0000* 


M15 


1erSep=1986 f2s4ssi3 


Us 21:___ WORD 


00022 ; TRASTARGET 


ne ee ere ee Thy 


0002E : BASTARGET 
00030 ; jMORE. TeX 

00030  TpRSTYPES 
00032 Citaitanéey 

00034 ; TPASTYPE 
00036 Oaes canett 
6.33:  .WORD 
.PSECT 

00000 KEY_TABLE:: 

00000 gTpasKevd 

00000 TPASKEY 
11: .WORD 


~EXTRN 


Attributes 


oNOEXE ,NOSHR, 
D SNOEKE: NOSHR’ 


ca 

mmm 

m mr 

. 

2 
oad se el oe sl ol 
valatalataletala) 
eh a oe 
ses 8s 8&8 8&8 & &@ & 


4154 


4594 

<<U.26°U.27>-2> 

5623 

-1 

0 

4589 

<<U.26°U.31>=2> 

5623 

-1 

-LIBSKEYOS,NOWRT, SHR, 


0 
0 
<U.10-U.1> 


LIBSSIGNAL, LIBSSTOP 


L. CON,NOPIC,ALIGN(9) 
L. CON,NOPIC,ALIGN(2) 
L. CON,NOPIC,ALIGN(2) 
S, CON,NOPIC,ALIGN(O) 
L. CON,NOPIC,ALIGN(2) 
L. CON, PIC,ALIGN(1) 
L. CON, PIC,ALIGN(1) 
L. CON, PIC,ALIGN(1) 


VAX-11 Bliss-32 V4.0-742 2 
DISKSVMSMASTER: CMOUNT.SRCIJASSIST.832; 


B 
V 


ow 


cocecece Symbols ---<----- Pages 
File Total izeced: Percent Mapped 


~$383S0UAbB:ESVSLIBITPARAC L221 say Sete Sieg 60:06:2 


82801 1b-te 8epn18Rs Pb:28:9e Wd imGmAStERSCMOUNT. ScaassisT.83203%" (295 
Precesstng 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:ASSIST/OBJ=OBJ$:ASSIST MSRC$:ASSIST/UPDATE=(ENH$:ASSIST) 


; ste ze: 2588 code + 1250 data bytes 
un Time: Bi:80° 8 
pda Time: 599. 2 
Lines/CPU Min: 
a Ae uae 3 of 
ponety Used: 233 pages 
Compilation Complete 
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